diff options
Diffstat (limited to 'scripts/Dpkg')
| -rw-r--r-- | scripts/Dpkg/Changelog/Entry/Debian.pm | 4 | ||||
| -rw-r--r-- | scripts/Dpkg/Package.pm | 4 | ||||
| -rw-r--r-- | scripts/Dpkg/Vendor/Ubuntu.pm | 4 |
3 files changed, 6 insertions, 6 deletions
diff --git a/scripts/Dpkg/Changelog/Entry/Debian.pm b/scripts/Dpkg/Changelog/Entry/Debian.pm index 88b927104..4ad43ebd4 100644 --- a/scripts/Dpkg/Changelog/Entry/Debian.pm +++ b/scripts/Dpkg/Changelog/Entry/Debian.pm @@ -297,8 +297,8 @@ sub find_closes { my %closes; while ($changes && - ($changes =~ /closes:\s*(?:bug)?\#?\s?\d+(?:,\s*(?:bug)?\#?\s?\d+)*/ig)) { - $closes{$_} = 1 foreach ($& =~ /\#?\s?(\d+)/g); + ($changes =~ /closes:\s*(?:bug)?\#?\s?\d+(?:,\s*(?:bug)?\#?\s?\d+)*/pig)) { + $closes{$_} = 1 foreach (${^MATCH} =~ /\#?\s?(\d+)/g); } my @closes = sort { $a <=> $b } keys %closes; diff --git a/scripts/Dpkg/Package.pm b/scripts/Dpkg/Package.pm index 04fbb00d5..cf5771ee3 100644 --- a/scripts/Dpkg/Package.pm +++ b/scripts/Dpkg/Package.pm @@ -32,8 +32,8 @@ sub pkg_name_is_illegal($) { if ($name eq '') { return _g('may not be empty string'); } - if ($name =~ m/[^-+.0-9a-z]/o) { - return sprintf(_g("character '%s' not allowed"), $&); + if ($name =~ m/[^-+.0-9a-z]/op) { + return sprintf(_g("character '%s' not allowed"), ${^MATCH}); } if ($name !~ m/^[0-9a-z]/o) { return _g('must start with an alphanumeric character'); diff --git a/scripts/Dpkg/Vendor/Ubuntu.pm b/scripts/Dpkg/Vendor/Ubuntu.pm index 44abf41e2..68ac7c0d4 100644 --- a/scripts/Dpkg/Vendor/Ubuntu.pm +++ b/scripts/Dpkg/Vendor/Ubuntu.pm @@ -170,8 +170,8 @@ sub find_launchpad_closes { my %closes; while ($changes && - ($changes =~ /lp:\s+\#\d+(?:,\s*\#\d+)*/ig)) { - $closes{$_} = 1 foreach ($& =~ /\#?\s?(\d+)/g); + ($changes =~ /lp:\s+\#\d+(?:,\s*\#\d+)*/pig)) { + $closes{$_} = 1 foreach (${^MATCH} =~ /\#?\s?(\d+)/g); } my @closes = sort { $a <=> $b } keys %closes; |