Mailing List Archive

commit efe35bc9306d8540002a5dbb187bb51efc9cd4f3
Author: Jon Jensen <jon@endpoint.com>
Date: Sat Aug 22 17:21:47 2009 -0600

Remove bogus usage of $@, which File::Copy doesn't set on error

install_lsb.pl | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
---
diff --git a/install_lsb.pl b/install_lsb.pl
index 087d974..924b910 100644
--- a/install_lsb.pl
+++ b/install_lsb.pl
@@ -79,7 +79,7 @@ while (my ($from, $to) = each %relocate) {
}
next unless -f $from;
File::Copy::move($from, $to)
- or die "Unable to move from $from to $to: $@ --> $!\n";
+ or die "Unable to move from $from to $to: $!\n";
}

my $data;

_______________________________________________
interchange-cvs mailing list
interchange-cvs@icdevgroup.org
http://www.icdevgroup.org/mailman/listinfo/interchange-cvs