Changeset 543 in ProjectBuilder for devel/pb/lib/ProjectBuilder/Changelog.pm
- Timestamp:
- Sep 16, 2008, 1:50:58 AM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb/lib/ProjectBuilder/Changelog.pm
r473 r543 63 63 sub pb_changelog { 64 64 65 my $dtype = shift; 66 my $pkg = shift; 67 my $pbver = shift; 68 my $pbtag = shift; 69 my $dsuf = shift; 65 my $pb = shift; 66 my $dtype = $pb->{'dtype'}; 67 my $pbrealpkg = $pb->{'realpkg'}; 68 my $pbver = $pb->{'ver'}; 69 my $pbtag = $pb->{'tag'}; 70 my $dsuf = $pb->{'suf'}; 70 71 my $path = shift; 71 72 my $OUTPUT = shift; 72 73 my $doit = shift; 73 my $chglog = shift|| undef;74 my $chglog = $pb->{'chglog'} || undef; 74 75 75 76 my $log = ""; … … 79 80 80 81 if ((not (defined $dtype)) || ($dtype eq "") || 81 (not (defined $p kg)) || ($pkg eq "") ||82 (not (defined $pbrealpkg)) || ($pbrealpkg eq "") || 82 83 (not (defined $pbver)) || ($pbver eq "") || 83 84 (not (defined $pbtag)) || ($pbtag eq "") || … … 91 92 92 93 if (((not defined $chglog) || (! -f $chglog)) && ($doit eq "yes")) { 93 #pb_log(2,"No ChangeLog file ($chglog) for $p kg\n";94 #pb_log(2,"No ChangeLog file ($chglog) for $pbrealpkg\n"; 94 95 print $OUTPUT "\n"; 95 96 return; … … 119 120 } 120 121 if ($dtype eq "deb") { 121 print $OUTPUT "$p kg ($pbver) unstable; urgency=low\n";122 print $OUTPUT "$pbrealpkg ($pbver) unstable; urgency=low\n"; 122 123 print $OUTPUT "\n"; 123 124 print $OUTPUT " -- $pbpackager->{$ENV{'PBPROJ'}} $n2date\n\n\n"; … … 170 171 } 171 172 if ($dtype eq "deb") { 172 print $OUTPUT "$p kg ($ver) unstable; urgency=low\n";173 print $OUTPUT "$pbrealpkg ($ver) unstable; urgency=low\n"; 173 174 print $OUTPUT "\n"; 174 175 }
Note:
See TracChangeset
for help on using the changeset viewer.