Peppermint
/
debian-cd-clone
mirror of https://salsa.debian.org/images-team/debian-cd.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Cope with field case change in the Packages file: Filename to FileName. Match this field case-insensitively.

This commit is contained in:
Steve McIntyre 2000-09-05 23:12:54 +00:00
parent 3d60041f0d
commit 03b9552049
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tools/add_packages
View File

@ -23,7 +23,7 @@ $/ = ''; # Browse by paragraph
my ($p, $file, $arch, $d, $realfile, $source, $section, $name);
while (defined($_ = <LIST>)) {
m/^Package: (\S+)/m and $p = $1;
m/^Filename: (\S+)/m and $file = $1;
m/^Filename: (\S+)/mi and $file = $1;
m/^Architecture: (\S+)/m and $arch = $1;
m/^Section: (\S+)/m and $section = $1;

2
tools/mirror_check
View File

@ -15,7 +15,7 @@ while (defined($_ = <>)) {
# Get the infos about a package
m/^Package: (\S+)/m and $p = $1;
m/^Size: (\d+)/m and $size = $1;
m/^Filename: (\S+)/m and $filename = $1;
m/^Filename: (\S+)/mi and $filename = $1;
m/^MD5sum: (\S+)/m and $md5sum = $1;
next if not $p;

2
tools/strip-nonUS-bin
View File

@ -45,7 +45,7 @@ my ($p, $re);
while (defined($_=<AVAIL>)) {
next if not m/^Package: (\S+)\s*$/m;
$p = $1;
if( m/^(Section|Filename): \S*non-US\S*\s*$/m )
if( m/^(Section|Filename): \S*non-US\S*\s*$/mi )
{
$packages{$p}{"nonus"} = 1;
} else {