diff options
| author |   millert <millert@openbsd.org> | 2009-10-12 18:10:27 +0000 |
|---|---|---|
| committer | millert <millert@openbsd.org> | 2009-10-12 18:10:27 +0000 |
| commit | 43003dfe3ad45d1698bed8a37f2b0f5b14f20d4f (patch) | |
| tree | 1abc677556fd1cb82189030802130c0f670a32d9 /gnu/usr.bin/perl/lib/perl5db/t/lvalue-bug | |
| parent | More inodes by default on the ramdisk, because otherwise a many-disk (diff) | |
| download | wireguard-openbsd-43003dfe3ad45d1698bed8a37f2b0f5b14f20d4f.tar.xz wireguard-openbsd-43003dfe3ad45d1698bed8a37f2b0f5b14f20d4f.zip | |
import perl 5.10.1
Diffstat (limited to 'gnu/usr.bin/perl/lib/perl5db/t/lvalue-bug')
| -rw-r--r-- | gnu/usr.bin/perl/lib/perl5db/t/lvalue-bug | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/gnu/usr.bin/perl/lib/perl5db/t/lvalue-bug b/gnu/usr.bin/perl/lib/perl5db/t/lvalue-bug new file mode 100644 index 00000000000..14d2fbbfb00 --- /dev/null +++ b/gnu/usr.bin/perl/lib/perl5db/t/lvalue-bug @@ -0,0 +1,9 @@ +#!/usr/bin/perl +# +# This code is used by lib/perl5db.t !!! +# + +my $i; +sub foo () : lvalue { $i } +foo = 1; +print defined foo ? "foo is defined" : "foo is still undef", "\n"; |