Subversion Repositories debpool

Compare Revisions

Ignore whitespace Rev 15 → Rev 16

/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;
}
}