Configure: clean away perl syntax faults
authorRichard Levitte <levitte@openssl.org>
Sun, 10 Jan 2021 08:13:14 +0000 (09:13 +0100)
committerRichard Levitte <levitte@openssl.org>
Tue, 12 Jan 2021 10:25:54 +0000 (11:25 +0100)
The faults aren't fatal (i.e. perl just shrugs), but are curious.

Reviewed-by: Tomas Mraz <tmraz@fedoraproject.org>
(Merged from https://github.com/openssl/openssl/pull/13824)

Configure

index 72829cd58367eda38082e97cf45dc522a44e90d8..87267e2a26e4c9cef7d42db39b00770c5944f20c 100755 (executable)
--- a/Configure
+++ b/Configure
@@ -2260,7 +2260,7 @@ EOF
                     push @{$check_exist{$s}}, $ddest;
                     my $o = $_;
                     $o =~ s/\.rc$/.res/; # Resource configuration
-                    my $o = cleanfile($buildd, $o, $blddir);
+                    $o = cleanfile($buildd, $o, $blddir);
                     $unified_info{sources}->{$ddest}->{$o} = -1;
                     $unified_info{sources}->{$o}->{$s} = -1;
                 } else {
@@ -2296,7 +2296,7 @@ EOF
                     push @{$check_exist{$s}}, $ddest;
                     my $o = $_;
                     $o =~ s/\.rc$/.res/; # Resource configuration
-                    my $o = cleanfile($buildd, $o, $blddir);
+                    $o = cleanfile($buildd, $o, $blddir);
                     $unified_info{shared_sources}->{$ddest}->{$o} = -1;
                     $unified_info{sources}->{$o}->{$s} = -1;
                 } elsif ($s =~ /\.ld$/) {