Changeset 285 in ProjectBuilder for devel/pb/lib/ProjectBuilder/Changelog.pm
- Timestamp:
- Nov 15, 2007, 12:04:08 AM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb/lib/ProjectBuilder/Changelog.pm
r273 r285 22 22 my $OUTPUT = shift; 23 23 my $doit = shift; 24 my $chglog = shift || undef; 24 25 25 26 my $log = ""; … … 28 29 $ENV{LANG}="C"; 29 30 30 return("\n")if ((not (defined $dtype)) || ($dtype eq "") ||31 if ((not (defined $dtype)) || ($dtype eq "") || 31 32 (not (defined $pkg)) || ($pkg eq "") || 32 33 (not (defined $pbver)) || ($pbver eq "") || … … 35 36 (not (defined $path)) || ($path eq "") || 36 37 (not (defined $OUTPUT)) || ($OUTPUT eq "") || 37 (not (defined $doit)) || ($doit eq "")); 38 (not (defined $doit)) || ($doit eq "")) { 39 print $OUTPUT "\n"; 40 return; 41 } 38 42 39 my $chglog = "$ENV{'PBROOT'}/$path/ChangeLog"; 40 if ((! -f $chglog) && ($doit eq "yes")) { 43 if (((not defined $chglog) || (! -f $chglog)) && ($doit eq "yes")) { 41 44 #print "No ChangeLog file ($chglog) for $pkg\n"; 42 return("\n"); 45 print $OUTPUT "\n"; 46 return; 43 47 } 44 48 … … 50 54 my ($packager) = pb_conf_get("packager"); 51 55 52 # If we don't need to do it, fake something53 if ( $doit ne "yes") {56 # If we don't need to do it, or don't have it fake something 57 if (((not defined $chglog) || (! -f $chglog)) && ($doit ne "yes")) { 54 58 my @date=(localtime->sec(), localtime->min(), localtime->hour(), localtime->mday(), localtime->mon(), localtime->year(), localtime->wday(), localtime->yday(), localtime->isdst()); 55 59 $date = strftime("%Y-%m-%d", @date);
Note:
See TracChangeset
for help on using the changeset viewer.