summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2013-04-23 04:20:29 +0000
committerThierry Vignaud <tv@mageia.org>2013-04-23 04:20:29 +0000
commit327df2a086f09dea84353e0b5b5a82ac3fd0b053 (patch)
treee51ba9cb5a5568efce80b466dcdb831b26bfcce4
parent9c30e62dfde674f512a5ca44b538781f604c7e4b (diff)
downloaddrakx-backup-do-not-use-327df2a086f09dea84353e0b5b5a82ac3fd0b053.tar
drakx-backup-do-not-use-327df2a086f09dea84353e0b5b5a82ac3fd0b053.tar.gz
drakx-backup-do-not-use-327df2a086f09dea84353e0b5b5a82ac3fd0b053.tar.bz2
drakx-backup-do-not-use-327df2a086f09dea84353e0b5b5a82ac3fd0b053.tar.xz
drakx-backup-do-not-use-327df2a086f09dea84353e0b5b5a82ac3fd0b053.zip
log substitions in verbose mode
needed in order to pinpoint & fix: Backslash found where operator expected at -e line 2, near ";}continue{print or die qq(-p destination: $!\" (Missing operator before \?) Final $ should be \$ or $name at -e line 1, within string syntax error at -e line 2, near ";}continue{print or die qq(-p destination: $!" (Might be a runaway multi-line !! string starting on line 1) Execution of -e aborted due to compilation errors. (see next commit)
-rwxr-xr-xtools/install-xml-file-list1
1 files changed, 1 insertions, 0 deletions
diff --git a/tools/install-xml-file-list b/tools/install-xml-file-list
index 56b7a0a4f..42a567ef5 100755
--- a/tools/install-xml-file-list
+++ b/tools/install-xml-file-list
@@ -353,6 +353,7 @@ sub apply_filter {
@l = grep { ! -d $_ } @l or next;
if (my $subst = $filter->{subst}) {
+ warn "running substition $subst \n" if $verbose;
system('perl', '-pi', '-e', $subst, @l);
}
if (my $command = $filter->{command}) {