Changeset 255


Ignore:
Timestamp:
10/25/07 02:27:03 (6 years ago)
Author:
bruno
Message:

Fix syntax errors

File:
1 edited

Legend:

Unmodified
Added
Removed
  • devel/pb/lib/ProjectBuilder/Changelog.pm

    r254 r255  
    3434        (not (defined $dsuf)) || ($dsuf eq "") ||  
    3535        (not (defined $path)) || ($path eq "") ||  
    36         (not (defined $OUTPUT)) || ($OUTPUT eq "")); 
     36        (not (defined $OUTPUT)) || ($OUTPUT eq "") || 
    3737        (not (defined $doit)) || ($doit eq "")); 
    3838 
     
    4343} 
    4444 
     45my $date; 
     46my $ndate; 
     47my $n2date; 
     48my $ver; 
     49my $ver2; 
     50my ($packager) = pb_conf_get("packager"); 
     51 
    4552# If we don't need to do it, fake something 
    4653if ($doit ne "yes") { 
    4754    my @date=(localtime->sec(), localtime->min(), localtime->hour(), localtime->mday(), localtime->mon(), localtime->year(), localtime->wday(), localtime->yday(), localtime->isdst()); 
    48     my $date = strftime("%Y-%m-%d", @date); 
    49     my $ndate = UnixDate($date,"%a", "%b", "%d", "%Y"); 
    50     my $n2date = &UnixDate($date,"%a, %d %b %Y %H:%M:%S %z"); 
     55    $date = strftime("%Y-%m-%d", @date); 
     56    $ndate = UnixDate($date,"%a", "%b", "%d", "%Y"); 
     57    $n2date = &UnixDate($date,"%a, %d %b %Y %H:%M:%S %z"); 
    5158    if (($dtype eq "rpm") || ($dtype eq "fc")) { 
    52         my $ver2 = "$pbver-$pbtag$dsuf"; 
     59        $ver2 = "$pbver-$pbtag$dsuf"; 
    5360        print $OUTPUT "* $ndate $packager->{$ENV{'PBPROJ'}} $ver2\n"; 
    5461        print $OUTPUT "- Updated to $pbver\n"; 
     
    8087# Handle each block separated by newline 
    8188while (<INPUT>) { 
    82     my ($ver, $date) = split(/ /); 
    83     my $ver2; 
     89    ($ver, $date) = split(/ /); 
    8490    $ver =~ s/^v//; 
    8591    chomp($date); 
    8692    $date =~ s/\(([0-9-]+)\)/$1/; 
    8793    #print "**$date**\n"; 
    88     my $ndate = UnixDate($date,"%a", "%b", "%d", "%Y"); 
    89     my $n2date = &UnixDate($date,"%a, %d %b %Y %H:%M:%S %z"); 
     94    $ndate = UnixDate($date,"%a", "%b", "%d", "%Y"); 
     95    $n2date = &UnixDate($date,"%a, %d %b %Y %H:%M:%S %z"); 
    9096    #print "**$ndate**\n"; 
    91     my ($packager) = pb_conf_get("packager"); 
    9297 
    9398    if (($dtype eq "rpm") || ($dtype eq "fc")) { 
Note: See TracChangeset for help on using the changeset viewer.