Changeset 5 in ProjectBuilder for devel/pb/bin/mkchangelog.pl
- Timestamp:
- Jul 29, 2007, 12:50:34 AM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb/bin/mkchangelog.pl
r2 r5 35 35 (not (defined $outfile)) || ($outfile eq "")); 36 36 37 my $ TOOLHOME;37 my $PBROOT; 38 38 $tmp = dirname($PROGRAM_NAME); 39 39 if ($tmp =~ /^\//) { 40 $ TOOLHOME= $tmp;40 $PBROOT = $tmp; 41 41 } 42 42 else { 43 $ TOOLHOME= "$ENV{PWD}/$tmp";43 $PBROOT = "$ENV{PWD}/$tmp"; 44 44 } 45 45 46 die " TOOLHOME doesn't exist" if (not (defined $TOOLHOME));46 die "PBROOT doesn't exist" if (not (defined $PBROOT)); 47 47 48 if (-f "$ TOOLHOME/../$pkg/ChangeLog") {49 $chglog = "$ TOOLHOME/../$pkg/ChangeLog";48 if (-f "$PBROOT/../$pkg/ChangeLog") { 49 $chglog = "$PBROOT/../$pkg/ChangeLog"; 50 50 } 51 51 else { 52 52 $pkg2 = $pkg; 53 53 $pkg2 =~ s/-..*//; 54 if (-f "$ TOOLHOME/../$pkg2/ChangeLog") {55 $chglog = "$ TOOLHOME/../$pkg2/ChangeLog";54 if (-f "$PBROOT/../$pkg2/ChangeLog") { 55 $chglog = "$PBROOT/../$pkg2/ChangeLog"; 56 56 } 57 57 else { … … 59 59 } 60 60 } 61 $tmp="$ TOOLHOME/../$pkg/TAG";61 $tmp="$PBROOT/../$pkg/TAG"; 62 62 if (-f "$tmp") { 63 63 open(TAG,"$tmp") || die "Unable to open $tmp";
Note:
See TracChangeset
for help on using the changeset viewer.