From 656cd66c43f91b2e92badcc4fbeab24405c0ab67 Mon Sep 17 00:00:00 2001 From: lace <> Date: Thu, 22 Dec 2005 14:54:02 +0000 Subject: [PATCH] Drop "MS-Windows XP " prefix from all the 'id's. Provide "Checked Build " prefix for the Checked Build packages. --- src/install/acquire/captivemodid-print.pl | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/install/acquire/captivemodid-print.pl b/src/install/acquire/captivemodid-print.pl index 7f5ba81..7360c4e 100755 --- a/src/install/acquire/captivemodid-print.pl +++ b/src/install/acquire/captivemodid-print.pl @@ -165,7 +165,7 @@ sub stack0_flush() HERE $print.=<<"HERE" if !$dupe_global; {"lang"} ]} $ver_prefix@{[ $this->{"ver"} ]} @{[ $this->{"this_name"} ]}" /> + id="@{[ $this->{"dist"} ]} @{[ !$this->{"is_debug"} ? "" : "Checked Build "]}@{[ $this->{"lang"} ]} $ver_prefix@{[ $this->{"ver"} ]} @{[ $this->{"this_name"} ]}" /> HERE $print=~s/^/"\t" x (1+$stacki)/egm; print STDERR "\n" if $STDERR_needs_eol; @@ -245,7 +245,7 @@ my($filename_unused,$basename_orig)=@_; $pri-=20 if $basename_orig=~/^ntkrnlpa/; $pri-=40 if $basename_orig=~/^ntkrnlmp/; $pri-=60 if $basename_orig=~/^ntkrpamp/; - $pri+=5000000 if name_is_debug $basename0; + $pri+=5000000 if my $is_debug=name_is_debug $basename0; local *F; open F,$filename or confess; my $md5obj=Digest::MD5->new(); @@ -264,6 +264,7 @@ my($filename_unused,$basename_orig)=@_; "lang"=>$lang, "ver"=>$ver, "this_name"=>$this_name, + "is_debug"=>$is_debug, ); # Highest priority/version of all the files in the cabinet: for (qw(ver priority)) { -- 1.8.3.1