diff options
| author | Stephen Potter <spp@psa.pencom.com> | 1998-02-12 11:11:05 -0600 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-02-20 12:20:29 +0000 |
| commit | c6aa4a325f8f7aec03423575f368826bb1e2b038 (patch) | |
| tree | 4f26fc072908cd72af68c607cb1736795f1ac67c /t/op/pat.t | |
| parent | 7fd66d9d30123afaec1f02787836d8154d73e836 (diff) | |
| download | perl-c6aa4a325f8f7aec03423575f368826bb1e2b038.tar.gz | |
5.004_58, move intuition tests
p4raw-id: //depot/perl@536
Diffstat (limited to 't/op/pat.t')
| -rwxr-xr-x | t/op/pat.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index 5ea9bb44ae..e6b90158f9 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -67,7 +67,7 @@ $XXX{234} = 234; $XXX{345} = 345; @XXX = ('ok 25','not ok 25', 'ok 26','not ok 26','not ok 27'); -while ($_ = shift(XXX)) { +while ($_ = shift(@XXX)) { ?(.*)? && (print $1,"\n"); /not/ && reset; /not ok 26/ && reset 'X'; |