|
 |
1f3c62 |
Description: Escape "{", to prevent complaints from perl 5.22 and 5.26
|
|
|
1f3c62 |
Author: Roderich Schupp <roderich.schupp@gmail.com>
|
|
|
1f3c62 |
Author: gregor herrmann <gregoa@debian.org>
|
|
|
1f3c62 |
Bug-Debian: https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=788705
|
|
|
1f3c62 |
Bug-Debian: https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=826471
|
|
|
1f3c62 |
Bug-Upstream: https://bugs.launchpad.net/intltool/+bug/1490906
|
|
|
1f3c62 |
|
|
|
1f3c62 |
Index: intltool-0.51.0/intltool-update.in
|
|
|
1f3c62 |
===================================================================
|
|
|
1f3c62 |
--- intltool-0.51.0.orig/intltool-update.in 2017-07-23 17:24:35.113169465 +0200
|
|
|
1f3c62 |
+++ intltool-0.51.0/intltool-update.in 2017-07-23 17:24:35.109169052 +0200
|
|
|
1f3c62 |
@@ -1062,13 +1062,13 @@
|
|
|
1f3c62 |
}
|
|
|
1f3c62 |
}
|
|
|
1f3c62 |
|
|
|
1f3c62 |
- if ($str =~ /^(.*)\${?([A-Z_]+)}?(.*)$/)
|
|
|
1f3c62 |
+ if ($str =~ /^(.*)\$\{?([A-Z_]+)}?(.*)$/)
|
|
|
1f3c62 |
{
|
|
|
1f3c62 |
my $rest = $3;
|
|
|
1f3c62 |
my $untouched = $1;
|
|
|
1f3c62 |
my $sub = "";
|
|
|
1f3c62 |
# Ignore recursive definitions of variables
|
|
|
1f3c62 |
- $sub = $varhash{$2} if defined $varhash{$2} and $varhash{$2} !~ /\${?$2}?/;
|
|
|
1f3c62 |
+ $sub = $varhash{$2} if defined $varhash{$2} and $varhash{$2} !~ /\$\{?$2}?/;
|
|
|
1f3c62 |
|
|
|
1f3c62 |
return SubstituteVariable ("$untouched$sub$rest");
|
|
|
1f3c62 |
}
|
|
|
1f3c62 |
@@ -1190,10 +1190,10 @@
|
|
|
1f3c62 |
$name =~ s/\(+$//g;
|
|
|
1f3c62 |
$version =~ s/\(+$//g;
|
|
|
1f3c62 |
|
|
|
1f3c62 |
- $varhash{"PACKAGE_NAME"} = $name if (not $name =~ /\${?AC_PACKAGE_NAME}?/);
|
|
|
1f3c62 |
- $varhash{"PACKAGE"} = $name if (not $name =~ /\${?PACKAGE}?/);
|
|
|
1f3c62 |
- $varhash{"PACKAGE_VERSION"} = $version if (not $name =~ /\${?AC_PACKAGE_VERSION}?/);
|
|
|
1f3c62 |
- $varhash{"VERSION"} = $version if (not $name =~ /\${?VERSION}?/);
|
|
|
1f3c62 |
+ $varhash{"PACKAGE_NAME"} = $name if (not $name =~ /\$\{?AC_PACKAGE_NAME}?/);
|
|
|
1f3c62 |
+ $varhash{"PACKAGE"} = $name if (not $name =~ /\$\{?PACKAGE}?/);
|
|
|
1f3c62 |
+ $varhash{"PACKAGE_VERSION"} = $version if (not $name =~ /\$\{?AC_PACKAGE_VERSION}?/);
|
|
|
1f3c62 |
+ $varhash{"VERSION"} = $version if (not $name =~ /\$\{?VERSION}?/);
|
|
|
1f3c62 |
}
|
|
|
1f3c62 |
|
|
|
1f3c62 |
if ($conf_source =~ /^AC_INIT\(([^,\)]+),([^,\)]+)[,]?([^,\)]+)?/m)
|
|
|
1f3c62 |
@@ -1219,11 +1219,11 @@
|
|
|
1f3c62 |
$version =~ s/\(+$//g;
|
|
|
1f3c62 |
$bugurl =~ s/\(+$//g if (defined $bugurl);
|
|
|
1f3c62 |
|
|
|
1f3c62 |
- $varhash{"PACKAGE_NAME"} = $name if (not $name =~ /\${?AC_PACKAGE_NAME}?/);
|
|
|
1f3c62 |
- $varhash{"PACKAGE"} = $name if (not $name =~ /\${?PACKAGE}?/);
|
|
|
1f3c62 |
- $varhash{"PACKAGE_VERSION"} = $version if (not $name =~ /\${?AC_PACKAGE_VERSION}?/);
|
|
|
1f3c62 |
- $varhash{"VERSION"} = $version if (not $name =~ /\${?VERSION}?/);
|
|
|
1f3c62 |
- $varhash{"PACKAGE_BUGREPORT"} = $bugurl if (defined $bugurl and not $bugurl =~ /\${?\w+}?/);
|
|
|
1f3c62 |
+ $varhash{"PACKAGE_NAME"} = $name if (not $name =~ /\$\{?AC_PACKAGE_NAME}?/);
|
|
|
1f3c62 |
+ $varhash{"PACKAGE"} = $name if (not $name =~ /\$\{?PACKAGE}?/);
|
|
|
1f3c62 |
+ $varhash{"PACKAGE_VERSION"} = $version if (not $name =~ /\$\{?AC_PACKAGE_VERSION}?/);
|
|
|
1f3c62 |
+ $varhash{"VERSION"} = $version if (not $name =~ /\$\{?VERSION}?/);
|
|
|
1f3c62 |
+ $varhash{"PACKAGE_BUGREPORT"} = $bugurl if (defined $bugurl and not $bugurl =~ /\$\{?\w+}?/);
|
|
|
1f3c62 |
}
|
|
|
1f3c62 |
|
|
|
1f3c62 |
# \s makes this not work, why?
|