Changeset 59


Ignore:
Timestamp:
Aug 30, 2007, 7:22:23 PM (11 years ago)
Author:
bruno
Message:

Do not call env_init before testing for action

File:
1 edited

Legend:

Unmodified
Added
Removed
  • devel/pb/bin/pb

    r57 r59  
    5959    $debug = 0  if ($debug == -1);
    6060    }
     61# Handles test option
     62if (defined $opts{'t'}) {
     63    $test = "TRUE";
     64    # Works only for SVN
     65    $option = "-r BASE";
     66}
     67
     68# Get Action
     69$action = shift @ARGV;
     70die syntax() if (not defined $action);
     71
    6172# Handles project name if any
    6273if (defined $opts{'p'}) {
     
    6576    $ENV{'PBPROJ'} = env_init();
    6677}
    67 
    68 # Handles test option
    69 if (defined $opts{'t'}) {
    70     $test = "TRUE";
    71     # Works only for SVN
    72     $option = "-r BASE";
    73 }
    74 
    75 # Get Action
    76 $action = shift @ARGV;
    77 die syntax() if (not defined $action);
    7878
    7979print $LOG "Project $ENV{'PBPROJ'}\n" if ($debug >= 0);
Note: See TracChangeset for help on using the changeset viewer.