diff options
-rwxr-xr-x | perl-install/do_resize_fat | 18 | ||||
-rwxr-xr-x | perl-install/getpkgs_deps | 10 |
2 files changed, 0 insertions, 28 deletions
diff --git a/perl-install/do_resize_fat b/perl-install/do_resize_fat deleted file mode 100755 index 41ebf1b83..000000000 --- a/perl-install/do_resize_fat +++ /dev/null @@ -1,18 +0,0 @@ -#!/usr/bin/perl - -use diagnostics; -use strict; - -use lib qw(/usr/lib/libDrakX); -use common; -use resize_fat::main; - -local *log::l = sub { print join(' ', @_), "\n" }; - -@ARGV = qw(/mnt/iso/w +0); - -@ARGV == 2 or die "usage: fatresize <device> <size>\n <size> = 100 means `resize to 100Mb'\n <size> = +10 means `keep 10Mb of free space'\n"; - -my $fs = new resize_fat::main(common::basename($ARGV[0]), $ARGV[0]); -resize_fat::main::resize($fs, $ARGV[1]); - diff --git a/perl-install/getpkgs_deps b/perl-install/getpkgs_deps deleted file mode 100755 index bc2d5e0e8..000000000 --- a/perl-install/getpkgs_deps +++ /dev/null @@ -1,10 +0,0 @@ -#!/usr/bin/perl - -use diagnostics; -use strict; - -use lib qw(/usr/bin/perl-install . c c/blib/arch); -use pkgs_deps; -use pkgs; - -pkgs_deps::main(pkgs::psUsingDirectory()); |