[perl #68108] : also fix if/else constant folding

[p5sagit/p5-mst-13.2.git] / t / op / lex_assign.t

diff --git a/t/op/lex_assign.t b/t/op/lex_assign.t
old mode 100755 (executable)
new mode 100644 (file)
index ee74d93..38f11cc
--- a/t/op/lex_assign.t
+++ b/t/op/lex_assign.t
@@ -4,11 +4,11 @@ BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
 }
-$ENV{PERL_DESTRUCT_LEVEL} = 0 unless $ENV{PERL_DESTRUCT_LEVEL} > 3; 
 
+$| = 1;
 umask 0;
 $xref = \ "";
-$runme = ($^O eq 'VMS' ? 'MCR ' : '') . $^X;
+$runme = $^X;
 @a = (1..5);
 %h = (1..6);
 $aref = \@a;
@@ -24,7 +24,7 @@ sub subb {"in s"}
 
 @INPUT = <DATA>;
 @simple_input = grep /^\s*\w+\s*\$\w+\s*[#\n]/, @INPUT;
-print "1..", (10 + @INPUT + @simple_input), "\n";
+print "1..", (11 + @INPUT + @simple_input), "\n";
 $ord = 0;
 
 sub wrn {"@_"}
@@ -170,6 +170,25 @@ EOE
     }
   }
 }
+
+$ord++;
+eval {
+    sub PVBM () { 'foo' }
+    index 'foo', PVBM;
+    my $x = PVBM;
+
+    my $str = 'foo';
+    my $pvlv = \substr $str, 0, 1;
+    $x = $pvlv;
+
+    1;
+};
+if ($@) {
+    warn "# $@";
+    print 'not ';
+}
+print "ok $ord\n";
+
 __END__
 ref $xref                      # ref
 ref $cstr                      # ref nonref
@@ -265,7 +284,7 @@ open BLAH, "<non-existent"  # open
 fileno STDERR                  # fileno
 umask 0                                # umask
 select STDOUT                  # sselect
-select "","","",0              # select
+select undef,undef,undef,0     # select
 getc OP                                # getc
 '???'                          # read
 '???'                          # sysread