From 327df2a086f09dea84353e0b5b5a82ac3fd0b053 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Tue, 23 Apr 2013 04:20:29 +0000
Subject: 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)
---
 tools/install-xml-file-list | 1 +
 1 file changed, 1 insertion(+)

(limited to 'tools')

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}) {
-- 
cgit v1.2.1