Forgot portability nit.

p4raw-id: //depot/perl@6779

diff --git a/t/lib/st-forgive.t b/t/lib/st-forgive.t
index e5272f0..822013b 100644 (file)
--- 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')};