1
0
mirror of https://github.com/samba-team/samba.git synced 2024-12-23 17:34:34 +03:00

r20548: Remove unnecessary "use lib", fix warnings.

(This used to be commit 30d721569f)
This commit is contained in:
Jelmer Vernooij 2007-01-05 15:03:21 +00:00 committed by Gerald (Jerry) Carter
parent 2963c63987
commit f7ca27b9ca
12 changed files with 6 additions and 16 deletions

View File

@ -17,13 +17,13 @@ use vars qw ( $VERSION );
$VERSION = '0.02'; $VERSION = '0.02';
sub warning($$) sub warning
{ {
my ($l,$m) = @_; my ($l,$m) = @_;
print STDERR "$l->{FILE}:$l->{LINE}: warning: $m\n"; print STDERR "$l->{FILE}:$l->{LINE}: warning: $m\n";
} }
sub error($$) sub error
{ {
my ($l,$m) = @_; my ($l,$m) = @_;
print STDERR "$l->{FILE}:$l->{LINE}: error: $m\n"; print STDERR "$l->{FILE}:$l->{LINE}: error: $m\n";

View File

@ -15,15 +15,15 @@ use lib "$RealBin/../lib";
use Parse::Pidl; use Parse::Pidl;
my $warnings = ""; my $warnings = "";
sub Parse::Pidl::warning($$) undef &Parse::Pidl::warning;
{ *Parse::Pidl::warning = sub {
my ($e, $l) = @_; my ($e, $l) = @_;
$warnings .= "$e->{FILE}:$e->{LINE}: $l\n"; $warnings .= "$e->{FILE}:$e->{LINE}: $l\n";
}; };
my $errors = ""; my $errors = "";
sub Parse::Pidl::error($$) undef &Parse::Pidl::error;
{ *Parse::Pidl::error = sub {
my ($e, $l) = @_; my ($e, $l) = @_;
$errors .= "$e->{FILE}:$e->{LINE}: $l\n"; $errors .= "$e->{FILE}:$e->{LINE}: $l\n";
}; };

View File

@ -5,7 +5,6 @@ use strict;
use Test::More tests => 5 * 8; use Test::More tests => 5 * 8;
use FindBin qw($RealBin); use FindBin qw($RealBin);
use lib "$RealBin/../lib";
use lib "$RealBin"; use lib "$RealBin";
use Util qw(test_samba4_ndr); use Util qw(test_samba4_ndr);

View File

@ -5,7 +5,6 @@ use strict;
use Test::More tests => 5 * 8; use Test::More tests => 5 * 8;
use FindBin qw($RealBin); use FindBin qw($RealBin);
use lib "$RealBin/../lib";
use lib "$RealBin"; use lib "$RealBin";
use Util qw(test_samba4_ndr); use Util qw(test_samba4_ndr);

View File

@ -6,7 +6,6 @@ use strict;
use Test::More tests => 8; use Test::More tests => 8;
use FindBin qw($RealBin); use FindBin qw($RealBin);
use lib "$RealBin/../lib";
use lib "$RealBin"; use lib "$RealBin";
use Util qw(test_samba4_ndr); use Util qw(test_samba4_ndr);

View File

@ -6,7 +6,6 @@ use strict;
use Test::More tests => 1 * 8; use Test::More tests => 1 * 8;
use FindBin qw($RealBin); use FindBin qw($RealBin);
use lib "$RealBin/../lib";
use lib "$RealBin"; use lib "$RealBin";
use Util qw(test_samba4_ndr); use Util qw(test_samba4_ndr);

View File

@ -7,7 +7,6 @@ use strict;
use Test::More tests => 22 * 8; use Test::More tests => 22 * 8;
use FindBin qw($RealBin); use FindBin qw($RealBin);
use lib "$RealBin/../lib";
use lib "$RealBin"; use lib "$RealBin";
use Util qw(test_samba4_ndr); use Util qw(test_samba4_ndr);

View File

@ -5,7 +5,6 @@ use strict;
use Test::More tests => 1 * 8; use Test::More tests => 1 * 8;
use FindBin qw($RealBin); use FindBin qw($RealBin);
use lib "$RealBin/../lib";
use lib "$RealBin"; use lib "$RealBin";
use Util qw(test_samba4_ndr); use Util qw(test_samba4_ndr);

View File

@ -6,7 +6,6 @@ use strict;
use Test::More tests => 8; use Test::More tests => 8;
use FindBin qw($RealBin); use FindBin qw($RealBin);
use lib "$RealBin/../lib";
use lib "$RealBin"; use lib "$RealBin";
use Util qw(test_samba4_ndr); use Util qw(test_samba4_ndr);

View File

@ -6,7 +6,6 @@ use strict;
use Test::More tests => 3 * 8; use Test::More tests => 3 * 8;
use FindBin qw($RealBin); use FindBin qw($RealBin);
use lib "$RealBin/../lib";
use lib "$RealBin"; use lib "$RealBin";
use Util qw(test_samba4_ndr); use Util qw(test_samba4_ndr);

View File

@ -5,7 +5,6 @@ use strict;
use Test::More tests => 1 * 8; use Test::More tests => 1 * 8;
use FindBin qw($RealBin); use FindBin qw($RealBin);
use lib "$RealBin/../lib";
use lib "$RealBin"; use lib "$RealBin";
use Util qw(test_samba4_ndr); use Util qw(test_samba4_ndr);

View File

@ -5,7 +5,6 @@ use strict;
use Test::More tests => 6; use Test::More tests => 6;
use FindBin qw($RealBin); use FindBin qw($RealBin);
use lib "$RealBin/../lib";
use lib "$RealBin"; use lib "$RealBin";
use Util qw(test_warnings test_errors); use Util qw(test_warnings test_errors);
use Parse::Pidl qw(warning error); use Parse::Pidl qw(warning error);