1 files changed, 31 insertions, 0 deletions
diff --git a/gnu/usr.bin/perl/cpan/Module-Load/t/to_load/TestModule.pm b/gnu/usr.bin/perl/cpan/Module-Load/t/to_load/TestModule.pm
new file mode 100644
index 00000000000..ffc5ec98f5d
--- /dev/null
+++ b/gnu/usr.bin/perl/cpan/Module-Load/t/to_load/TestModule.pm
@@ -0,0 +1,31 @@
+package TestModule;
+
+use strict;
+require Exporter;
+use vars qw(@EXPORT @EXPORT_OK @ISA $IMPORTED);
+
+@ISA        = qw(Exporter);
+@EXPORT     = qw(func2);
+@EXPORT_OK  = qw(func1);
+
+### test if import gets called properly
+sub import   { $IMPORTED = 1; 
+               ### this breaks on 5.8.[45] which have a bug with goto's losing
+               ### arguments in @_. This is the cause of the 0.14 tester failures
+               ### under 5.8.[45]. The bug is NOT in exporter, but core perl:
+               ### http://testers.cpan.org/show/Module-Load.html
+               #goto &Exporter::import; 
+               
+               ### instead, use the undocumented, but widely used $ExportLevel
+               ### which will make sure we pass all arguments, and even works
+               ### on buggy 5.8.[45]
+               do { local $Exporter::ExportLevel += 1; Exporter::import(@_) }
+             }
+             
+sub imported { $IMPORTED;       }
+
+sub func1    { return "func1";  }
+
+sub func2    { return "func2";  }
+
+1;