diff options
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 fdd3c421f6e..2f43abe1ed0 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"; }; |