Subversion Repositories DevTools

Rev

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

Rev 5582 Rev 5726
Line 559... Line 559...
559 
    Information ("Package       - " . (-d $pkgTargetDir ? "Exists" : "Does Not exist"));
 559 
    Information ("Package       - " . (-d $pkgTargetDir ? "Exists" : "Does Not exist"));
560 
    Information ("---------------------------------------------------------------");
 560 
    Information ("---------------------------------------------------------------");
561 
 
 561 
 
562 
    Verbose("Package Target: $pkgTargetDir");
 562 
    Verbose("Package Target: $pkgTargetDir");
563 
 
 563 
 
- 
 
 564 
    #
- 
 
 565 
    #   Locate and delete fragments that would have formed this package
- 
 
 566 
    #       Locate all package fragements
- 
 
 567 
    #       Package fragments are named after the package name and version and have a .tar.gz suffix
- 
 
 568 
    #       The contens of @packageFragments will be deleted on exit
- 
 
 569 
    #
- 
 
 570 
    my $basename = join('_', $opt_pname, $opt_pversion);
- 
 
 571 
    $basename .= '_*.tar.gz';
- 
 
 572 
    @packageFragments = glob (catfile($opt_srcPath, $basename ));
- 
 
 573 
    Message("Package fragments found:", @packageFragments);
- 
 
 574 
 
- 
 
 575 
    #
- 
 
 576 
    #   Delete the package
- 
 
 577 
    #
564 
    if (-d $pkgTargetDir)
 578 
    if (-d $pkgTargetDir)
565 
    {
 579 
    {
566 
        if (RmDirTree($pkgTargetDir))
 580 
        if (RmDirTree($pkgTargetDir))
567 
        {
 581 
        {
568 
            Error ("Package-Version not deleted");
 582 
            Error ("Package-Version not deleted");