[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