gmtime/localtime are busted around 2**48
[perl.git] / t / re / 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/re/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";