cross-plat-dev-utils/weed_backups.pl
changeset 6 787612182dd0
parent 2 39c28ec933dd
child 10 b2a53d442fd6
equal deleted inserted replaced
5:301c3edbdaa1 6:787612182dd0
    11 # Script delete backup files from the package directory.
    11 # Script delete backup files from the package directory.
    12 
    12 
    13 use strict;
    13 use strict;
    14 use usage;
    14 use usage;
    15 use File::Spec;
    15 use File::Spec;
    16 use set_epocroot;
    16 use places;
    17 
    17 
    18 sub delete_backups($);
    18 sub delete_backups($);
    19 
    19 
    20 usage(\@ARGV,"This script deletes all files in the package directory " .
    20 usage(\@ARGV,"This script deletes all files in the package directory " .
    21 	"with names ending in '~'\n");
    21 	"with names ending in '~'\n");
    22 set_epocroot();
    22 my $epocroot = get_epocroot();
    23 my $epocroot = $ENV{'EPOCROOT'};
    23 my $build_pkg_dir = get_pkg_dir();
    24 my $build_pkg_dir = File::Spec->catfile("$epocroot","build");
       
    25 my $deletes = 0;
    24 my $deletes = 0;
    26 delete_backups($build_pkg_dir);
    25 delete_backups($build_pkg_dir);
    27 print ">>> $deletes files deleted\n"; 
    26 print ">>> $deletes files deleted\n"; 
    28 exit 0;
    27 exit 0;
    29 
    28