From f7ca27b9ca318657b38688bf063a63d96b1e8c3a Mon Sep 17 00:00:00 2001
From: Jelmer Vernooij <jelmer@samba.org>
Date: Fri, 5 Jan 2007 15:03:21 +0000
Subject: r20548: Remove unnecessary "use lib", fix warnings. (This used to be
 commit 30d721569fdf33e4784eb1f7c650e75ed1b80527)

---
 source4/pidl/tests/Util.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'source4/pidl/tests/Util.pm')

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";
 };
-- 
cgit