Changeset 255


Ignore:
Timestamp:
Oct 25, 2007, 2:27:03 AM (12 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.