diff options
author | Jelmer Vernooij <jelmer@samba.org> | 2007-01-05 15:03:21 +0000 |
---|---|---|
committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 14:36:52 -0500 |
commit | f7ca27b9ca318657b38688bf063a63d96b1e8c3a (patch) | |
tree | 8dcd17a854a4da6702b8a62293b0d5883e7adcd1 /source4/pidl/tests/Util.pm | |
parent | 2963c639871665ced7ee0b5afad3406e7496b233 (diff) | |
download | samba-f7ca27b9ca318657b38688bf063a63d96b1e8c3a.tar.gz samba-f7ca27b9ca318657b38688bf063a63d96b1e8c3a.tar.bz2 samba-f7ca27b9ca318657b38688bf063a63d96b1e8c3a.zip |
r20548: Remove unnecessary "use lib", fix warnings.
(This used to be commit 30d721569fdf33e4784eb1f7c650e75ed1b80527)
Diffstat (limited to 'source4/pidl/tests/Util.pm')
-rw-r--r-- | source4/pidl/tests/Util.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/source4/pidl/tests/Util.pm b/source4/pidl/tests/Util.pm index fdd3c421f6..2f43abe1ed 100644 --- a/source4/pidl/tests/Util.pm +++ b/source4/pidl/tests/Util.pm @@ -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"; }; |