mimecut.pl
changeset 5 c43594b89549
parent 3 2fcd20b32b2e
child 6 b58ecd25d1f1
--- a/mimecut.pl	Mon Sep 03 12:36:42 2007 +0000
+++ b/mimecut.pl	Mon Sep 03 12:57:43 2007 +0000
@@ -69,7 +69,6 @@
 
 my $out_err;
 my $out_std;
-my $out_null;
 my $logfile;
 my $prefix = '';
 
@@ -104,22 +103,16 @@
     }
 
     $out_std = *STDOUT;
-    open($out_null, '>', '/dev/null')
-        or die "$ME can't trash output!\n$!";
-    $out_err = $out_null;
 
     if ($opt_fake) { $opt_debug = 1 }
     if ($opt_log) {
-        die "$ME: can't fake in log mode!\n"
-            if ($opt_fake);
-        die "$ME: can't debug in log mode!\n"
-            if ($opt_debug);
-        open($logfile, ">> $LOGDIR/$ME.log")
+        die "$ME: can't fake in log mode!\n"  if $opt_fake;
+        die "$ME: can't debug in log mode!\n" if $opt_debug;
+        open(STDERR, ">> $LOGDIR/$ME.log")
             or die "$ME: can't open logfile!\n";
         $opt_debug = 1;
-        $out_err   = $logfile;
     }
-    elsif ($opt_debug) { $out_err = *STDERR }
+	elsif (!$opt_debug) { open(STDERR, ">/dev/null") }
 
     if ($opt_strain) {
         if ($opt_fake) {