@EXPORT_FAIL fix for Exporter.pm

The default export_fail method in Exporter.pm needs to drop the first
argument (the class name).

p5p-msgid: 24884.857841724@eeyore.ibcinc.com

diff --git a/lib/Exporter.pm b/lib/Exporter.pm
index fd95a7e..abdb1e7 100644 (file)
--- a/lib/Exporter.pm
+++ b/lib/Exporter.pm
@@ -176,6 +176,7 @@ sub export_ok_tags { _push_tags((caller)[0], "EXPORT_OK", \@_) }
 # Default methods
 
 sub export_fail {
+    my $self = shift;
     @_;
 }