From a42abacecae591d3aa1859e11a4e8e0b6972cb04 Mon Sep 17 00:00:00 2001 From: skv Date: Mon, 23 Nov 2009 15:58:01 +0000 Subject: perl-after-upgrade: - simplify regexes - catch lines in +CONTENTS like: @unexec rmdir %D/lib/perl5/5.10.0 2>/dev/null || true --- lang/perl5.10/files/perl-after-upgrade | 6 ++---- lang/perl5.12/files/perl-after-upgrade | 6 ++---- lang/perl5.14/files/perl-after-upgrade | 6 ++---- 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; -- cgit