forked from pool/quilt
c7a90ee9a0
- add perl-526.patch to work with perl 5.26 OBS-URL: https://build.opensuse.org/request/show/528506 OBS-URL: https://build.opensuse.org/package/show/devel:tools:scm/quilt?expand=0&rev=115
23 lines
690 B
Diff
23 lines
690 B
Diff
Index: quilt-0.65/test/run
|
|
===================================================================
|
|
--- quilt-0.65.orig/test/run
|
|
+++ quilt-0.65/test/run
|
|
@@ -111,7 +111,7 @@ sub flush_output()
|
|
sub substitute_vars($)
|
|
{
|
|
my ($line) = @_;
|
|
- $line =~ s[%{(\w+)}][defined $ENV{$1} ? $ENV{$1} : ""]eg;
|
|
+ $line =~ s[%\{(\w+)}][defined $ENV{$1} ? $ENV{$1} : ""]eg;
|
|
return $line;
|
|
}
|
|
|
|
@@ -287,7 +287,7 @@ while (defined(my $line = <SOURCE>)) {
|
|
# Parse the next command
|
|
if ($line =~ s/^\s*\$ ?//) {
|
|
# Substitute %{?} with the last command's status
|
|
- $line =~ s[%{\?}][$last_status]eg;
|
|
+ $line =~ s[%\{\?}][$last_status]eg;
|
|
|
|
chomp($prog = substitute_vars($line));
|
|
$prog_line = $lineno;
|