diff options
| -rw-r--r-- | lang/perl5.10/files/perl-after-upgrade | 6 | ||||
| -rw-r--r-- | lang/perl5.12/files/perl-after-upgrade | 6 | ||||
| -rw-r--r-- | lang/perl5.14/files/perl-after-upgrade | 6 | ||||
| -rw-r--r-- | lang/perl5.16/files/perl-after-upgrade | 6 |
4 files changed, 8 insertions, 16 deletions
diff --git a/lang/perl5.10/files/perl-after-upgrade b/lang/perl5.10/files/perl-after-upgrade index 7bb37386c4b9..2cd3c3fe8b21 100644 --- a/lang/perl5.10/files/perl-after-upgrade +++ b/lang/perl5.10/files/perl-after-upgrade @@ -530,9 +530,7 @@ while (my $pkg = $db->next) { $modified++ if $new_md5; } my $to = $from; - if ($to =~ s|/perl5/$PERL_VERSION_REGEX/|/perl5/$PERL_VERSION/|g - || $to =~ s|/perl5/site_perl/$PERL_VERSION_REGEX/|/perl5/site_perl/$PERL_VERSION/|g - ) { + if ($to =~ s|(/perl5/(?:site_perl/)?)$PERL_VERSION_REGEX|$1$PERL_VERSION|g) { if ($to ne $from) { my $dir = $to; $dir =~ s|/[^/]+$||; @@ -563,7 +561,7 @@ while (my $pkg = $db->next) { } } my $old = $_; - if (s|/perl5/$PERL_VERSION_REGEX/|/perl5/$PERL_VERSION/|g || s|/perl5/site_perl/$PERL_VERSION_REGEX/|/perl5/site_perl/$PERL_VERSION/|g) { + if (s|(/perl5/(?:site_perl/)?)$PERL_VERSION_REGEX|$1$PERL_VERSION|g) { if ($old ne $_) { $adjusted++; print STDERR "- adjust: $_\n" if $debug; diff --git a/lang/perl5.12/files/perl-after-upgrade b/lang/perl5.12/files/perl-after-upgrade index 7bb37386c4b9..2cd3c3fe8b21 100644 --- a/lang/perl5.12/files/perl-after-upgrade +++ b/lang/perl5.12/files/perl-after-upgrade @@ -530,9 +530,7 @@ while (my $pkg = $db->next) { $modified++ if $new_md5; } my $to = $from; - if ($to =~ s|/perl5/$PERL_VERSION_REGEX/|/perl5/$PERL_VERSION/|g - || $to =~ s|/perl5/site_perl/$PERL_VERSION_REGEX/|/perl5/site_perl/$PERL_VERSION/|g - ) { + if ($to =~ s|(/perl5/(?:site_perl/)?)$PERL_VERSION_REGEX|$1$PERL_VERSION|g) { if ($to ne $from) { my $dir = $to; $dir =~ s|/[^/]+$||; @@ -563,7 +561,7 @@ while (my $pkg = $db->next) { } } my $old = $_; - if (s|/perl5/$PERL_VERSION_REGEX/|/perl5/$PERL_VERSION/|g || s|/perl5/site_perl/$PERL_VERSION_REGEX/|/perl5/site_perl/$PERL_VERSION/|g) { + if (s|(/perl5/(?:site_perl/)?)$PERL_VERSION_REGEX|$1$PERL_VERSION|g) { if ($old ne $_) { $adjusted++; print STDERR "- adjust: $_\n" if $debug; diff --git a/lang/perl5.14/files/perl-after-upgrade b/lang/perl5.14/files/perl-after-upgrade index 7bb37386c4b9..2cd3c3fe8b21 100644 --- a/lang/perl5.14/files/perl-after-upgrade +++ b/lang/perl5.14/files/perl-after-upgrade @@ -530,9 +530,7 @@ while (my $pkg = $db->next) { $modified++ if $new_md5; } my $to = $from; - if ($to =~ s|/perl5/$PERL_VERSION_REGEX/|/perl5/$PERL_VERSION/|g - || $to =~ s|/perl5/site_perl/$PERL_VERSION_REGEX/|/perl5/site_perl/$PERL_VERSION/|g - ) { + if ($to =~ s|(/perl5/(?:site_perl/)?)$PERL_VERSION_REGEX|$1$PERL_VERSION|g) { if ($to ne $from) { my $dir = $to; $dir =~ s|/[^/]+$||; @@ -563,7 +561,7 @@ while (my $pkg = $db->next) { } } my $old = $_; - if (s|/perl5/$PERL_VERSION_REGEX/|/perl5/$PERL_VERSION/|g || s|/perl5/site_perl/$PERL_VERSION_REGEX/|/perl5/site_perl/$PERL_VERSION/|g) { + if (s|(/perl5/(?:site_perl/)?)$PERL_VERSION_REGEX|$1$PERL_VERSION|g) { if ($old ne $_) { $adjusted++; print STDERR "- adjust: $_\n" if $debug; diff --git a/lang/perl5.16/files/perl-after-upgrade b/lang/perl5.16/files/perl-after-upgrade index 7bb37386c4b9..2cd3c3fe8b21 100644 --- a/lang/perl5.16/files/perl-after-upgrade +++ b/lang/perl5.16/files/perl-after-upgrade @@ -530,9 +530,7 @@ while (my $pkg = $db->next) { $modified++ if $new_md5; } my $to = $from; - if ($to =~ s|/perl5/$PERL_VERSION_REGEX/|/perl5/$PERL_VERSION/|g - || $to =~ s|/perl5/site_perl/$PERL_VERSION_REGEX/|/perl5/site_perl/$PERL_VERSION/|g - ) { + if ($to =~ s|(/perl5/(?:site_perl/)?)$PERL_VERSION_REGEX|$1$PERL_VERSION|g) { if ($to ne $from) { my $dir = $to; $dir =~ s|/[^/]+$||; @@ -563,7 +561,7 @@ while (my $pkg = $db->next) { } } my $old = $_; - if (s|/perl5/$PERL_VERSION_REGEX/|/perl5/$PERL_VERSION/|g || s|/perl5/site_perl/$PERL_VERSION_REGEX/|/perl5/site_perl/$PERL_VERSION/|g) { + if (s|(/perl5/(?:site_perl/)?)$PERL_VERSION_REGEX|$1$PERL_VERSION|g) { if ($old ne $_) { $adjusted++; print STDERR "- adjust: $_\n" if $debug; |