diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-01-02 21:37:29 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-01-02 21:37:29 +0000 |
| commit | 69b47968fa00dfccb6aab68633e778fed2de80ea (patch) | |
| tree | 172ea60712feb722b7efb33f51e593a9975d3918 /t | |
| parent | 6f7d0078e68bc6a1f2a59d66e229fb67ce3fbb40 (diff) | |
| download | perl-69b47968fa00dfccb6aab68633e778fed2de80ea.tar.gz | |
disable optimization in change#3612 for join() and quotemeta()--this
removes all the gross hacks for the special cases in that change; fix
pp_concat() for when TARG == arg (modified version of patch suggested
by Ilya Zakharevich)
p4raw-link: @3612 on //depot/perl: b162f9ead0a98db35cdcfc8c889e344c040c8d8e
p4raw-id: //depot/perl@4749
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/lex_assign.t | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/t/op/lex_assign.t b/t/op/lex_assign.t index 0f658694dd..56ddfff866 100755 --- a/t/op/lex_assign.t +++ b/t/op/lex_assign.t @@ -24,7 +24,7 @@ sub subb {"in s"} @INPUT = <DATA>; @simple_input = grep /^\s*\w+\s*\$\w+\s*[#\n]/, @INPUT; -print "1..", (8 + @INPUT + @simple_input), "\n"; +print "1..", (9 + @INPUT + @simple_input), "\n"; $ord = 0; sub wrn {"@_"} @@ -53,6 +53,12 @@ $ord++; print "not " unless $dc == 1; print "ok $ord\n"; +$ord++; +my $xxx = 'b'; +$xxx = 'c' . ($xxx || 'e'); +print "not " unless $xxx eq 'cb'; +print "ok $ord\n"; + { # Check calling STORE my $sc = 0; sub B::TIESCALAR {bless [11], 'B'} |