diff options
| author | Florian Ragwitz <rafl@debian.org> | 2008-11-14 12:24:57 +0100 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2008-11-14 14:18:00 +0000 |
| commit | 6fd69bbe2bea498b179902913d94c1f09d136b0c (patch) | |
| tree | 9aa05f461bf46ffdba93fe26d89c9f8dc630894a /lib/perl5db | |
| parent | e23d9e2f39425eea292ee5999c974fdc2cdd98b8 (diff) | |
| download | perl-6fd69bbe2bea498b179902913d94c1f09d136b0c.tar.gz | |
Add TODO test for :lvalue under -d.
Message-Id: <1226658297-24025-1-git-send-email-rafl@debian.org>
p4raw-id: //depot/perl@34832
Diffstat (limited to 'lib/perl5db')
| -rw-r--r-- | lib/perl5db/t/lvalue-bug | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lib/perl5db/t/lvalue-bug b/lib/perl5db/t/lvalue-bug new file mode 100644 index 0000000000..14d2fbbfb0 --- /dev/null +++ b/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"; |