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);