tweak Makefile.PL error check

shawnlaffan · Mar 19, 2023 · 0314827 · 0314827
1 parent 360002b
commit 0314827
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Makefile.PL b/Makefile.PL
@@ -8,8 +8,8 @@ if ($^O ne 'MSWin32') {
     #  Make a copy of the scipt without the .pl extension.
     #  Clunky as it is not considered by "make clean".
     use File::Copy;
-    my $success = eval {copy 'bin/pp_autolink.pl', 'bin/pp_autolink'; 1};
-    warn $@ if $@;
+    my $success = eval {copy 'bin/pp_autolink.pl', 'bin/pp_autolink'};
+    warn $! if $!;
     if ($success) {
         @exe_copy = ('bin/pp_autolink');
     }