Fix warnings/etc. on recent perls.

1 files changed, 5 insertions, 1 deletions

diff --git a/compress_files b/compress_files
index 0d90c42..9d5e50f 100755
--- a/compress_files
+++ b/compress_files
@@ -126,7 +126,9 @@ if (@files) {
 
 # Fix up symlinks that were pointing to the uncompressed files.
 sub link_function {
-    local ($_) = @_;
+    # $_ is already defined by File::Find.
+    #
+
     # skip everything but symlinks
     return unless -l $_;
     # skip non-dangling symlinks
@@ -140,6 +142,8 @@ sub link_function {
         # Bad link go on nowhere (any better idea) ?
         unlink $_;
     }
+
+    return;
 }
 
 File::Find::find(\&link_function, $buildroot);