Ignore:
Timestamp:
Jul 29, 2007, 12:50:34 AM (12 years ago)
Author:
bruno
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • devel/pb/bin/mkchangelog.pl

    r2 r5  
    3535        (not (defined $outfile)) || ($outfile eq ""));
    3636
    37 my $TOOLHOME;
     37my $PBROOT;
    3838$tmp = dirname($PROGRAM_NAME);
    3939if ($tmp =~ /^\//) {
    40     $TOOLHOME = $tmp;
     40    $PBROOT = $tmp;
    4141    }
    4242else {
    43     $TOOLHOME = "$ENV{PWD}/$tmp";
     43    $PBROOT = "$ENV{PWD}/$tmp";
    4444    }
    4545
    46 die "TOOLHOME doesn't exist" if (not (defined $TOOLHOME));
     46die "PBROOT doesn't exist" if (not (defined $PBROOT));
    4747
    48 if (-f "$TOOLHOME/../$pkg/ChangeLog") {
    49     $chglog = "$TOOLHOME/../$pkg/ChangeLog";
     48if (-f "$PBROOT/../$pkg/ChangeLog") {
     49    $chglog = "$PBROOT/../$pkg/ChangeLog";
    5050    }
    5151else {
    5252    $pkg2 = $pkg;
    5353    $pkg2 =~ s/-..*//;
    54     if (-f "$TOOLHOME/../$pkg2/ChangeLog") {
    55         $chglog = "$TOOLHOME/../$pkg2/ChangeLog";
     54    if (-f "$PBROOT/../$pkg2/ChangeLog") {
     55        $chglog = "$PBROOT/../$pkg2/ChangeLog";
    5656        }
    5757    else {
     
    5959    }
    6060}
    61 $tmp="$TOOLHOME/../$pkg/TAG";
     61$tmp="$PBROOT/../$pkg/TAG";
    6262if (-f "$tmp") {
    6363    open(TAG,"$tmp") || die "Unable to open $tmp";
Note: See TracChangeset for help on using the changeset viewer.