projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
4051c94
)
Remove unnecessary stuff from sub_lval.t
author
Father Chrysostomos
<sprout@cpan.org>
Wed, 1 Jun 2011 04:56:35 +0000
(21:56 -0700)
committer
Father Chrysostomos
<sprout@cpan.org>
Wed, 1 Jun 2011 04:56:40 +0000
(21:56 -0700)
I cannot find any information on these, but that comment
is erroneous and that sub is not doing anything.
t/op/sub_lval.t
patch
|
blob
|
history
diff --git
a/t/op/sub_lval.t
b/t/op/sub_lval.t
index
c1691cb
..
5db4180
100644
(file)
--- a/
t/op/sub_lval.t
+++ b/
t/op/sub_lval.t
@@
-210,7
+210,7
@@
EOE
like($_, qr/Can\'t modify non-lvalue subroutine call/)
or diag "'$_', '$x0', '$x1'";
-sub lv0 : lvalue { }
# Converted to lv10 in scalar context
+sub lv0 : lvalue { }
$_ = undef;
eval <<'EOE' or $_ = $@;
@@
-220,8
+220,6
@@
EOE
like($_, qr/Can't return undef from lvalue subroutine/);
-sub lv10 : lvalue {}
-
$_ = undef;
eval <<'EOE' or $_ = $@;
(lv0) = (2,3);