diff options
| -rw-r--r-- | NEWS | 4 | ||||
| -rwxr-xr-x | compress_files | 6 | ||||
| -rwxr-xr-x | gprintify | 6 |
3 files changed, 12 insertions, 4 deletions
@@ -1,3 +1,7 @@ +2015-07-25 Shlomi Fish <shlomif@cpan.org> 0.31.9 + * gprintf: eliminate warnings on perl-5.22.0-and-above. + * compress_files: Fix handling of $_ in the File::Find::find() callback. + 2012-07-24 Colin Guthrie <colin@magiea.org> 0.31.8 * fix_pamd: Check for /usr/lib[64]/security/ folder too after usrmove * relink_symlinks: Do not make symlinks to /dev, /proc or /sys relative 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); @@ -47,10 +47,10 @@ my $var_pattern = qr/ (?: \$[a-zA-Z0-9_]+ # simple variable name | - \${ # protected variable name + \$\{ # protected variable name [a-zA-Z0-9_]+ - (?:[#%]{1,2}[^}]+)? # with optional expansion pattern - } + (?:[#%]{1,2}[^\}]+)? # with optional expansion pattern + \} ) ) /x; |