diff options
| author | Ilya Zakharevich <ilya@math.ohio-state.edu> | 1996-02-04 16:38:11 -0500 |
|---|---|---|
| committer | Andy Dougherty <doughera@lafcol.lafayette.edu> | 1996-02-04 16:38:11 -0500 |
| commit | b8440792c4a62245d0033c065af6c1ecb58e6474 (patch) | |
| tree | 8e0b2f3bfe903378e731442dafbbade447efd25b /t/op/pack.t | |
| parent | 91bba347dac85baf813d9e41a1de89280909a30c (diff) | |
| download | perl-b8440792c4a62245d0033c065af6c1ecb58e6474.tar.gz | |
Patches for test suit for better portability
This does not change actual tests, but improves support code such that
an early bail out does not happen if environment is not Unixish.
Diffstat (limited to 't/op/pack.t')
| -rwxr-xr-x | t/op/pack.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/op/pack.t b/t/op/pack.t index 859d48f70d..1cfcd60b08 100755 --- a/t/op/pack.t +++ b/t/op/pack.t @@ -33,7 +33,8 @@ print +($x = unpack("%32B69", "\001\002\004\010\020\040\100\200\017")) == 9 print +($x = unpack("%32B*", "Now is the time for all good blurfl")) == 129 ? "ok 7\n" : "not ok 7 $x\n"; -open(BIN, "./perl") || die "Can't open ../perl: $!\n"; +open(BIN, "./perl") || open(BIN, "./perl.exe") + || die "Can't open ../perl or ../perl.exe: $!\n"; sysread BIN, $foo, 8192; close BIN; |