--- 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) {