Remove duplicately applied patch shards.
[p5sagit/p5-mst-13.2.git] / t / lib / st-forgive.t
index e5272f0..822013b 100644 (file)
@@ -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')};