Changeset 255 in ProjectBuilder for devel/pb

Timestamp:

Oct 25, 2007, 2:27:03 AM (18 years ago)

Author:

Bruno Cornec

Message:

Fix syntax errors

File:

• devel/pb/lib/ProjectBuilder/Changelog.pm (modified) (3 diffs)

devel/pb/lib/ProjectBuilder/Changelog.pm

@@ -34 +34 @@
         (not (defined $dsuf)) || ($dsuf eq "") || 
         (not (defined $path)) || ($path eq "") || 
-        (not (defined $OUTPUT)) || ($OUTPUT eq ""));
+        (not (defined $OUTPUT)) || ($OUTPUT eq "") ||
         (not (defined $doit)) || ($doit eq ""));
 
@@ -43 +43 @@
 }
 
+my $date;
+my $ndate;
+my $n2date;
+my $ver;
+my $ver2;
+my ($packager) = pb_conf_get("packager");
+
 # If we don't need to do it, fake something
 if ($doit ne "yes") {
     my @date=(localtime->sec(), localtime->min(), localtime->hour(), localtime->mday(), localtime->mon(), localtime->year(), localtime->wday(), localtime->yday(), localtime->isdst());
-    my $date = strftime("%Y-%m-%d", @date);
-    my $ndate = UnixDate($date,"%a", "%b", "%d", "%Y");
-    my $n2date = &UnixDate($date,"%a, %d %b %Y %H:%M:%S %z");
+    $date = strftime("%Y-%m-%d", @date);
+    $ndate = UnixDate($date,"%a", "%b", "%d", "%Y");
+    $n2date = &UnixDate($date,"%a, %d %b %Y %H:%M:%S %z");
     if (($dtype eq "rpm") || ($dtype eq "fc")) {
-        my $ver2 = "$pbver-$pbtag$dsuf";
+        $ver2 = "$pbver-$pbtag$dsuf";
         print $OUTPUT "* $ndate $packager->{$ENV{'PBPROJ'}} $ver2\n";
         print $OUTPUT "- Updated to $pbver\n";
@@ -80 +87 @@
 # Handle each block separated by newline
 while (<INPUT>) {
-    my ($ver, $date) = split(/ /);
-    my $ver2;
+    ($ver, $date) = split(/ /);
     $ver =~ s/^v//;
     chomp($date);
     $date =~ s/\(([0-9-]+)\)/$1/;
     #print "**$date**\n";
-    my $ndate = UnixDate($date,"%a", "%b", "%d", "%Y");
-    my $n2date = &UnixDate($date,"%a, %d %b %Y %H:%M:%S %z");
+    $ndate = UnixDate($date,"%a", "%b", "%d", "%Y");
+    $n2date = &UnixDate($date,"%a, %d %b %Y %H:%M:%S %z");
     #print "**$ndate**\n";
-    my ($packager) = pb_conf_get("packager");
 
     if (($dtype eq "rpm") || ($dtype eq "fc")) {