X-Git-Url: http://vcs.maemo.org/git/?a=blobdiff_plain;f=dev%2Farm%2Flibsub-uplevel-perl%2Flibsub-uplevel-perl-0.1901%2Ft%2Flib%2FFoo.pm;fp=dev%2Farm%2Flibsub-uplevel-perl%2Flibsub-uplevel-perl-0.1901%2Ft%2Flib%2FFoo.pm;h=ea5f2bd4e12276d82c8271721a57f44f7826cd9f;hb=f477fa73365d491991707e7ed9217b48d6994551;hp=0000000000000000000000000000000000000000;hpb=da95c414033799c3a62606f299c3c00b5c77ca11;p=dh-make-perl

diff --git a/dev/arm/libsub-uplevel-perl/libsub-uplevel-perl-0.1901/t/lib/Foo.pm b/dev/arm/libsub-uplevel-perl/libsub-uplevel-perl-0.1901/t/lib/Foo.pm
new file mode 100644
index 0000000..ea5f2bd
--- /dev/null
+++ b/dev/arm/libsub-uplevel-perl/libsub-uplevel-perl-0.1901/t/lib/Foo.pm
@@ -0,0 +1,8 @@
+package Foo;
+
+# Hook::LexWrap does this, Sub::Uplevel appears to interfere.
+sub import { *{caller()."::fooble"} = \&fooble }
+
+sub fooble { 42 }
+
+1;