aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--NEWS4
-rwxr-xr-xcompress_files6
-rwxr-xr-xgprintify6
3 files changed, 12 insertions, 4 deletions
diff --git a/NEWS b/NEWS
index 5b7ec81..99846ef 100644
--- a/NEWS
+++ b/NEWS
@@ -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);
diff --git a/gprintify b/gprintify
index 925e4af..12dc936 100755
--- a/gprintify
+++ b/gprintify
@@ -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;