Subversion Repositories DevTools

Rev

Rev 7398 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7398 Rev 7464
Line 391... Line 391...
391
    $opt_package_script = AbsPath($opt_package_script);
391
    $opt_package_script = AbsPath($opt_package_script);
392
    unless (my $return = do $opt_package_script) {
392
    unless (my $return = do $opt_package_script) {
393
            Error ("Couldn't parse $opt_package_script: $@") if $@;
393
            Error ("Couldn't parse $opt_package_script: $@") if $@;
394
            Error ("Couldn't do $opt_package_script: $!") unless defined $return;
394
            Error ("Couldn't do $opt_package_script: $!") unless defined $return;
395
        };
395
        };
-
 
396
 
-
 
397
    # Restore defaults
396
    $ActiveSection = 1;
398
    $ActiveSection = 1;
-
 
399
    $WorkDir = $WorkDirInit;
-
 
400
    $WorkSubDir = '';
397
 
401
 
398
    #
402
    #
399
    #   Now have an image of the directory that we wish to package
403
    #   Now have an image of the directory that we wish to package
400
    #   Complete the building of the package
404
    #   Complete the building of the package
401
    #
405
    #