dh_configpackage: Fix leading slashes check for the transform operation

Bruno-M- · geofft · commit 354f042ad0ff · 2017-09-01T14:23:44.000-04:00
diff --git a/dh_configpackage b/dh_configpackage
@@ -376,7 +376,7 @@ foreach my $package (@{$dh{DOPACKAGES}}) {
         @transformfiles = filedoublearray($transformfile) if $transformfile;
     }
 
-    foreach my $listref (\@displacefiles, \@hidefiles, \@undisplacefiles, \@unhidefiles, \@transformfiles) {
+    foreach my $listref (\@displacefiles, \@hidefiles, \@undisplacefiles, \@unhidefiles) {
         foreach my $file (@$listref) {
             $file =~ s|^/?|/|;
         }
@@ -392,6 +392,7 @@ foreach my $package (@{$dh{DOPACKAGES}}) {
 
     foreach my $line (@transformfiles) {
         my $file = shift @$line;
+        $file =~ s|^/?|/|;
         my $source;
         my $source_is_local = 0;
         if (@$line[0] =~ /^</) {

Original file line number	Diff line number	Diff line change
`@@ -376,7 +376,7 @@ foreach my $package (@{$dh{DOPACKAGES}}) {`
`376`	`376`	`@transformfiles = filedoublearray($transformfile) if $transformfile;`
`377`	`377`	`}`
`378`	`378`
`379`		`- foreach my $listref (\@displacefiles, \@hidefiles, \@undisplacefiles, \@unhidefiles, \@transformfiles) {`
	`379`	`+ foreach my $listref (\@displacefiles, \@hidefiles, \@undisplacefiles, \@unhidefiles) {`
`380`	`380`	`foreach my $file (@$listref) {`
`381`	`381`	`$file =~ s\|^/?\|/\|;`
`382`	`382`	`}`
`@@ -392,6 +392,7 @@ foreach my $package (@{$dh{DOPACKAGES}}) {`
`392`	`392`
`393`	`393`	`foreach my $line (@transformfiles) {`
`394`	`394`	`my $file = shift @$line;`
	`395`	`+ $file =~ s\|^/?\|/\|;`
`395`	`396`	`my $source;`
`396`	`397`	`my $source_is_local = 0;`
`397`	`398`	`if (@$line[0] =~ /^</) {`