diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-22 19:44:47 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-22 19:44:47 +0000 |
| commit | e2858e37c651fe3dc3ade83d9bedeb12d2ed541e (patch) | |
| tree | 021fbdb76ca016f79d3113a209c4114177ae04d7 | |
| parent | 7457d6ad3a387c70eb604b1a53b1125b316fdee0 (diff) | |
| download | perl-e2858e37c651fe3dc3ade83d9bedeb12d2ed541e.tar.gz | |
Forgot portability nit.
p4raw-id: //depot/perl@6779
| -rw-r--r-- | t/lib/st-forgive.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/lib/st-forgive.t b/t/lib/st-forgive.t index e5272f03b2..822013b5ec 100644 --- a/t/lib/st-forgive.t +++ b/t/lib/st-forgive.t @@ -46,7 +46,7 @@ $Storable::forgive_me=1; my $devnull = File::Spec->devnull; open(SAVEERR, ">&STDERR"); -open(STDERR, ">/dev/null") or +open(STDERR, ">$devnull") or ( print SAVEERR "Unable to redirect STDERR: $!\n" and exit(1) ); eval {$result = store ($bad , 'store')}; |