[interchange] Remove bogus usage of $@, which File::Copy doesn't set on error
Jon Jensen
interchange-cvs at icdevgroup.org
Thu Nov 2 05:54:05 UTC 2017
commit efe35bc9306d8540002a5dbb187bb51efc9cd4f3
Author: Jon Jensen <jon at 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;
More information about the interchange-cvs
mailing list