Commit | Line | Data |
---|---|---|
a229a030 | 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"; |