]>
diplodocus.org Git - minc/commitdiff
function.
my $msg = shift;
my $err;
my $sig;
+ my $line;
+ my $message;
my $status;
$err = $sig = $msg;
$err =~ s|/new/|/err/|;
$sig =~ s|/new/|/sig/|;
if (-f $err) {
- my $line;
- my $message;
-
open(ERR, $err);
$line = <ERR>;
close(ERR);