projects
/
pkg-perl
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Debian lenny version packages
[pkg-perl]
/
deb-src
/
libsub-uplevel-perl
/
libsub-uplevel-perl-0.1901
/
t
/
lib
/
Foo.pm
diff --git a/deb-src/libsub-uplevel-perl/libsub-uplevel-perl-0.1901/t/lib/Foo.pm
b/deb-src/libsub-uplevel-perl/libsub-uplevel-perl-0.1901/t/lib/Foo.pm
new file mode 100644
(file)
index 0000000..
ea5f2bd
--- /dev/null
+++ b/
deb-src/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;