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 commit is contained in:
Jelmer Vernooij 2007-01-05 15:03:21 +00:00 committed by Gerald (Jerry) Carter
parent 2d960d4d7b
commit 30d721569f
12 changed files with 6 additions and 16 deletions

View File

@ -17,13 +17,13 @@ use vars qw ( $VERSION );
$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";

View File

@ -15,15 +15,15 @@ use lib "$RealBin/../lib";
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";
};

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

@ -5,7 +5,6 @@ use strict;
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);