/branches/magnus/debian/changelog |
---|
16,8 → 16,10 |
* Packages.pm: Use Digest::MD5 to verify MD5 checksums (it's included |
in the perl package anyway). |
* Add --help option (Andreas Fester). |
* Package names and architectures should be matched against literally |
and in full in Generate_Package() (Closes: #310320) |
-- Magnus Holmgren <magnus@kibibyte.se> Fri, 6 Apr 2007 14:51:16 +0200 |
-- Magnus Holmgren <magnus@kibibyte.se> Sun, 8 Apr 2007 22:49:15 +0200 |
debpool (0.2.3) experimental; urgency=low |
/branches/magnus/share/DebPool/Packages.pm |
---|
972,8 → 972,7 |
# without the epoch" -- it is more or less arbitrary, as long |
# as it is a well-formed version number). |
my($filepat) = "${package}_.*_${arch}\\.deb"; |
$filepat =~ s/\+/\\\+/; |
my($filepat) = qr/^\Q${package}_\E.*\Q_${arch}.deb\E$/; |
my($section) = Guess_Section($changes_data); |
my($pool) = join('/', (PoolDir($source, $section), $source)); |
985,7 → 984,7 |
# for later use. |
for $count (0..$#files) { |
if ($files[$count]->{'Filename'} =~ m/$filepat/) { |
if ($files[$count]->{'Filename'} =~ $filepat) { |
$marker = $count; |
} |
} |