t/op/reg_unsafe.t

   1 #!./perl
   2
   3 BEGIN {
   4     chdir 't' if -d 't';
   5     @INC = '../lib';
   6
   7 }
   8 print "1..1\n";
   9
  10 # there is an equivelent test in t/op/pat.t which does NOT fail
  11 # its not clear why it doesnt fail, so this todo gets its own test
  12 # file until we can work it out.
  13
  14 my $x;
  15 ($x='abc')=~/(abc)/g;
  16 $x='123';
  17
  18 print "not " if $1 ne 'abc';
  19 print "ok 1 # TODO safe match vars make /g slow\n";