Commit | Line | Data |
80305961 |
1 | #!./perl |
80305961 |
2 | |
3 | BEGIN { |
4 | chdir 't' if -d 't'; |
5 | @INC = '../lib'; |
6 | } |
7 | |
67261566 |
8 | # WARNING: Do not use anymodules as part of this test code. |
9 | # We could get action at a distance that would invalidate the tests. |
10 | |
11 | print "1..2\n"; |
12 | |
13 | # This tests whether glob assignment fails to load the tie. |
80305961 |
14 | *X = *-; |
67261566 |
15 | 'X'=~/(?<X>X)/; |
16 | print eval '*X{HASH}{X} || 1' ? "" :"not ","ok ",++$test,"\n"; |
17 | |
18 | # And since its a similar case we check %! as well |
19 | *Y = *!; |
20 | print 0<keys(%Y) ? "" :"not ","ok ",++$test,"\n"; |