Subversion Repositories DevTools

Rev

Rev 4105 | Rev 4143 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4105 Rev 4139
Line 280... Line 280...
280 
    chmod ( $perm & 0777, $DebianWorkDir );
 280 
    chmod ( $perm & 0777, $DebianWorkDir );
281 
 
 281 
 
282 
    #
 282 
    #
283 
    #   Invoke the user script to do the hard work
 283 
    #   Invoke the user script to do the hard work
284 
    #
 284 
    #
285 
    do $opt_package_script;
 285 
    unless (my $return = do $opt_package_script) {
- 
 
 286 
            Error ("Couldn't parse $opt_package_script: $@") if $@;
- 
 
 287 
            Error ("Couldn't do $opt_package_script: $!")    unless defined $return;
- 
 
 288 
        }
286 
 
 289 
 
287 
    #
 290 
    #
288 
    #   Complete the building of the package
 291 
    #   Complete the building of the package
289 
    #
 292 
    #
290 
    BuildDebianPackage ();
 293 
    BuildDebianPackage ();