diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-28 22:05:55 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-28 22:05:55 +0000 |
| commit | b881518d78374cbb36c0ad56c39aaca9fc97154d (patch) | |
| tree | 1a432a18aad7a59a50e59425b898b5bf5f1c6040 /t/run | |
| parent | 4282de365ad3986f7690c8ae5aeb465272208972 (diff) | |
| download | perl-b881518d78374cbb36c0ad56c39aaca9fc97154d.tar.gz | |
Retract #16820, #16819, #16810, #16669, #16531, #16530, #16501
to restore some level of sanity in the tied scalars can of worms.
p4raw-id: //depot/perl@16845
Diffstat (limited to 't/run')
| -rw-r--r-- | t/run/fresh_perl.t | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/t/run/fresh_perl.t b/t/run/fresh_perl.t index 3c0a9259ad..9ed6023ba7 100644 --- a/t/run/fresh_perl.t +++ b/t/run/fresh_perl.t @@ -821,6 +821,12 @@ $人++; # a child is born print $人, "\n"; EXPECT 3 +######## +# TODO An attempt at lvalueable barewords broke this +tie FH, 'main'; +EXPECT +Can't modify constant item in tie at - line 2, near "'main';" +Execution of - aborted due to compilation errors. ######## example from Camel 5, ch. 15, pp.406 (with use vars) # SKIP: ord "A" == 193 # EBCDIC use strict; |