From a4d8d6c87bd14c630159da1a029968b1434bd20f Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 4 Jul 2002 11:22:09 +0000 Subject: removed since unused --- perl-install/do_resize_fat | 18 ------------------ 1 file changed, 18 deletions(-) delete mode 100755 perl-install/do_resize_fat (limited to 'perl-install/do_resize_fat') 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 \n = 100 means `resize to 100Mb'\n = +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]); - -- cgit v1.2.1