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 
    #