From 925e58d2b3b5fc4adeefcf9f7c3062ba5efde627 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 9 Jul 1999 18:48:32 +0000
Subject: *** empty log message ***

---
 perl-install/do_resize_fat | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create 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
new file mode 100755
index 000000000..0668ecb19
--- /dev/null
+++ b/perl-install/do_resize_fat
@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+
+use diagnostics;
+use strict;
+
+use lib qw(.);
+use common;
+use resize_fat::main;
+
+local *log::l = sub { print join(' ', @_), "\n" };
+
+@ARGV = qw(/tmp/eee +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]);
+
-- 
cgit v1.2.1