svn commit: samba r20548 - in branches/SAMBA_4_0/source/pidl:
lib/Parse tests
jelmer at samba.org
jelmer at samba.org
Fri Jan 5 15:03:21 GMT 2007
Author: jelmer
Date: 2007-01-05 15:03:21 +0000 (Fri, 05 Jan 2007)
New Revision: 20548
WebSVN: http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=20548
Log:
Remove unnecessary "use lib", fix warnings.
Modified:
branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl.pm
branches/SAMBA_4_0/source/pidl/tests/Util.pm
branches/SAMBA_4_0/source/pidl/tests/ndr_align.pl
branches/SAMBA_4_0/source/pidl/tests/ndr_alloc.pl
branches/SAMBA_4_0/source/pidl/tests/ndr_array.pl
branches/SAMBA_4_0/source/pidl/tests/ndr_fullptr.pl
branches/SAMBA_4_0/source/pidl/tests/ndr_refptr.pl
branches/SAMBA_4_0/source/pidl/tests/ndr_represent.pl
branches/SAMBA_4_0/source/pidl/tests/ndr_simple.pl
branches/SAMBA_4_0/source/pidl/tests/ndr_string.pl
branches/SAMBA_4_0/source/pidl/tests/ndr_tagtype.pl
branches/SAMBA_4_0/source/pidl/tests/test_util.pl
Changeset:
Modified: branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl.pm
===================================================================
--- branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl.pm 2007-01-05 14:55:26 UTC (rev 20547)
+++ branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl.pm 2007-01-05 15:03:21 UTC (rev 20548)
@@ -17,13 +17,13 @@
$VERSION = '0.02';
-sub warning($$)
+sub warning
{
my ($l,$m) = @_;
print STDERR "$l->{FILE}:$l->{LINE}: warning: $m\n";
}
-sub error($$)
+sub error
{
my ($l,$m) = @_;
print STDERR "$l->{FILE}:$l->{LINE}: error: $m\n";
Modified: branches/SAMBA_4_0/source/pidl/tests/Util.pm
===================================================================
--- branches/SAMBA_4_0/source/pidl/tests/Util.pm 2007-01-05 14:55:26 UTC (rev 20547)
+++ branches/SAMBA_4_0/source/pidl/tests/Util.pm 2007-01-05 15:03:21 UTC (rev 20548)
@@ -15,15 +15,15 @@
use Parse::Pidl;
my $warnings = "";
-sub Parse::Pidl::warning($$)
-{
+undef &Parse::Pidl::warning;
+*Parse::Pidl::warning = sub {
my ($e, $l) = @_;
$warnings .= "$e->{FILE}:$e->{LINE}: $l\n";
};
my $errors = "";
-sub Parse::Pidl::error($$)
-{
+undef &Parse::Pidl::error;
+*Parse::Pidl::error = sub {
my ($e, $l) = @_;
$errors .= "$e->{FILE}:$e->{LINE}: $l\n";
};
Modified: branches/SAMBA_4_0/source/pidl/tests/ndr_align.pl
===================================================================
--- branches/SAMBA_4_0/source/pidl/tests/ndr_align.pl 2007-01-05 14:55:26 UTC (rev 20547)
+++ branches/SAMBA_4_0/source/pidl/tests/ndr_align.pl 2007-01-05 15:03:21 UTC (rev 20548)
@@ -5,7 +5,6 @@
use Test::More tests => 5 * 8;
use FindBin qw($RealBin);
-use lib "$RealBin/../lib";
use lib "$RealBin";
use Util qw(test_samba4_ndr);
Modified: branches/SAMBA_4_0/source/pidl/tests/ndr_alloc.pl
===================================================================
--- branches/SAMBA_4_0/source/pidl/tests/ndr_alloc.pl 2007-01-05 14:55:26 UTC (rev 20547)
+++ branches/SAMBA_4_0/source/pidl/tests/ndr_alloc.pl 2007-01-05 15:03:21 UTC (rev 20548)
@@ -5,7 +5,6 @@
use Test::More tests => 5 * 8;
use FindBin qw($RealBin);
-use lib "$RealBin/../lib";
use lib "$RealBin";
use Util qw(test_samba4_ndr);
Modified: branches/SAMBA_4_0/source/pidl/tests/ndr_array.pl
===================================================================
--- branches/SAMBA_4_0/source/pidl/tests/ndr_array.pl 2007-01-05 14:55:26 UTC (rev 20547)
+++ branches/SAMBA_4_0/source/pidl/tests/ndr_array.pl 2007-01-05 15:03:21 UTC (rev 20548)
@@ -6,7 +6,6 @@
use Test::More tests => 8;
use FindBin qw($RealBin);
-use lib "$RealBin/../lib";
use lib "$RealBin";
use Util qw(test_samba4_ndr);
Modified: branches/SAMBA_4_0/source/pidl/tests/ndr_fullptr.pl
===================================================================
--- branches/SAMBA_4_0/source/pidl/tests/ndr_fullptr.pl 2007-01-05 14:55:26 UTC (rev 20547)
+++ branches/SAMBA_4_0/source/pidl/tests/ndr_fullptr.pl 2007-01-05 15:03:21 UTC (rev 20548)
@@ -6,7 +6,6 @@
use Test::More tests => 1 * 8;
use FindBin qw($RealBin);
-use lib "$RealBin/../lib";
use lib "$RealBin";
use Util qw(test_samba4_ndr);
Modified: branches/SAMBA_4_0/source/pidl/tests/ndr_refptr.pl
===================================================================
--- branches/SAMBA_4_0/source/pidl/tests/ndr_refptr.pl 2007-01-05 14:55:26 UTC (rev 20547)
+++ branches/SAMBA_4_0/source/pidl/tests/ndr_refptr.pl 2007-01-05 15:03:21 UTC (rev 20548)
@@ -7,7 +7,6 @@
use Test::More tests => 22 * 8;
use FindBin qw($RealBin);
-use lib "$RealBin/../lib";
use lib "$RealBin";
use Util qw(test_samba4_ndr);
Modified: branches/SAMBA_4_0/source/pidl/tests/ndr_represent.pl
===================================================================
--- branches/SAMBA_4_0/source/pidl/tests/ndr_represent.pl 2007-01-05 14:55:26 UTC (rev 20547)
+++ branches/SAMBA_4_0/source/pidl/tests/ndr_represent.pl 2007-01-05 15:03:21 UTC (rev 20548)
@@ -5,7 +5,6 @@
use Test::More tests => 1 * 8;
use FindBin qw($RealBin);
-use lib "$RealBin/../lib";
use lib "$RealBin";
use Util qw(test_samba4_ndr);
Modified: branches/SAMBA_4_0/source/pidl/tests/ndr_simple.pl
===================================================================
--- branches/SAMBA_4_0/source/pidl/tests/ndr_simple.pl 2007-01-05 14:55:26 UTC (rev 20547)
+++ branches/SAMBA_4_0/source/pidl/tests/ndr_simple.pl 2007-01-05 15:03:21 UTC (rev 20548)
@@ -6,7 +6,6 @@
use Test::More tests => 8;
use FindBin qw($RealBin);
-use lib "$RealBin/../lib";
use lib "$RealBin";
use Util qw(test_samba4_ndr);
Modified: branches/SAMBA_4_0/source/pidl/tests/ndr_string.pl
===================================================================
--- branches/SAMBA_4_0/source/pidl/tests/ndr_string.pl 2007-01-05 14:55:26 UTC (rev 20547)
+++ branches/SAMBA_4_0/source/pidl/tests/ndr_string.pl 2007-01-05 15:03:21 UTC (rev 20548)
@@ -6,7 +6,6 @@
use Test::More tests => 3 * 8;
use FindBin qw($RealBin);
-use lib "$RealBin/../lib";
use lib "$RealBin";
use Util qw(test_samba4_ndr);
Modified: branches/SAMBA_4_0/source/pidl/tests/ndr_tagtype.pl
===================================================================
--- branches/SAMBA_4_0/source/pidl/tests/ndr_tagtype.pl 2007-01-05 14:55:26 UTC (rev 20547)
+++ branches/SAMBA_4_0/source/pidl/tests/ndr_tagtype.pl 2007-01-05 15:03:21 UTC (rev 20548)
@@ -5,7 +5,6 @@
use Test::More tests => 1 * 8;
use FindBin qw($RealBin);
-use lib "$RealBin/../lib";
use lib "$RealBin";
use Util qw(test_samba4_ndr);
Modified: branches/SAMBA_4_0/source/pidl/tests/test_util.pl
===================================================================
--- branches/SAMBA_4_0/source/pidl/tests/test_util.pl 2007-01-05 14:55:26 UTC (rev 20547)
+++ branches/SAMBA_4_0/source/pidl/tests/test_util.pl 2007-01-05 15:03:21 UTC (rev 20548)
@@ -5,7 +5,6 @@
use Test::More tests => 6;
use FindBin qw($RealBin);
-use lib "$RealBin/../lib";
use lib "$RealBin";
use Util qw(test_warnings test_errors);
use Parse::Pidl qw(warning error);
More information about the samba-cvs
mailing list