diff options
| author | Norton Allen <allen@huarp.harvard.edu> | 1997-09-05 00:00:00 +0000 |
|---|---|---|
| committer | Tim Bunce <Tim.Bunce@ig.co.uk> | 1997-09-05 00:00:00 +0000 |
| commit | ca0b63a54384876a335df571abef7f428d67e288 (patch) | |
| tree | 6feac24b686a747647099cd50569e90521c4b054 /t | |
| parent | 387deb6900d02a5b43888a2b575e6eb9b91f9aac (diff) | |
| download | perl-ca0b63a54384876a335df571abef7f428d67e288.tar.gz | |
fix poor t/op/runlevel.t test
This patch fixes the Can't "goto" outside block test. Before, the
test only hit the desired error if the system sort did a compare
where $a was 0, which is not guaranteed (and does not occur on at
least one system.) Now both arguments are tested.
Credited: Hugo van der Sanden <hv@crypt.compulink.co.uk>
Credited: Gurusamy Sarathy <gsar@engin.umich.edu>
p5p-msgid: 199709261458.KAA28611@dolores.harvard.edu
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/runlevel.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/runlevel.t b/t/op/runlevel.t index 2be2eec019..6693a829a8 100755 --- a/t/op/runlevel.t +++ b/t/op/runlevel.t @@ -304,7 +304,7 @@ EXPECT 0, 1, 2, 3 ######## sub foo { - goto bar if $a == 0; + goto bar if $a == 0 || $b == 0; $a <=> $b; } @a = (3, 2, 0, 1); |