Changeset 5 in ProjectBuilder for devel/pb/bin/mkchangelog.pl

Timestamp:

Jul 29, 2007, 12:50:34 AM (17 years ago)

Author:

Bruno Cornec

Message:

Lots of modifs to find the right way. Probably still not good

File:

• devel/pb/bin/mkchangelog.pl (modified) (2 diffs)

devel/pb/bin/mkchangelog.pl

@@ -35 +35 @@
         (not (defined $outfile)) || ($outfile eq ""));
 
-my $TOOLHOME;
+my $PBROOT;
 $tmp = dirname($PROGRAM_NAME);
 if ($tmp =~ /^\//) {
-    $TOOLHOME = $tmp;
+    $PBROOT = $tmp;
     }
 else {
-    $TOOLHOME = "$ENV{PWD}/$tmp";
+    $PBROOT = "$ENV{PWD}/$tmp";
     }
 
-die "TOOLHOME doesn't exist" if (not (defined $TOOLHOME));
+die "PBROOT doesn't exist" if (not (defined $PBROOT));
 
-if (-f "$TOOLHOME/../$pkg/ChangeLog") {
-    $chglog = "$TOOLHOME/../$pkg/ChangeLog";
+if (-f "$PBROOT/../$pkg/ChangeLog") {
+    $chglog = "$PBROOT/../$pkg/ChangeLog";
     }
 else {
     $pkg2 = $pkg;
     $pkg2 =~ s/-..*//;
-    if (-f "$TOOLHOME/../$pkg2/ChangeLog") {
-        $chglog = "$TOOLHOME/../$pkg2/ChangeLog";
+    if (-f "$PBROOT/../$pkg2/ChangeLog") {
+        $chglog = "$PBROOT/../$pkg2/ChangeLog";
         }
     else {
@@ -59 +59 @@
     }
 }
-$tmp="$TOOLHOME/../$pkg/TAG";
+$tmp="$PBROOT/../$pkg/TAG";
 if (-f "$tmp") {
     open(TAG,"$tmp") || die "Unable to open $tmp";