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
commitd76a84884b8ba0cfe161b679ea54cc6cb8d7894f (patch)
treee51ba9cb5a5568efce80b466dcdb831b26bfcce4
parent6b04836c05f8ea0e84cd2878b56c127ed27252e0 (diff)
downloaddrakx-d76a84884b8ba0cfe161b679ea54cc6cb8d7894f.tar
drakx-d76a84884b8ba0cfe161b679ea54cc6cb8d7894f.tar.gz
drakx-d76a84884b8ba0cfe161b679ea54cc6cb8d7894f.tar.bz2
drakx-d76a84884b8ba0cfe161b679ea54cc6cb8d7894f.tar.xz
drakx-d76a84884b8ba0cfe161b679ea54cc6cb8d7894f.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}) {