X-Git-Url: http://v3vee.org/palacios/gitweb/gitweb.cgi?p=palacios.git;a=blobdiff_plain;f=misc%2Ftest_vm%2Fscripts%2Fpad;fp=misc%2Ftest_vm%2Fscripts%2Fpad;h=0000000000000000000000000000000000000000;hp=c1c5329a72807f7c19d6988f700ef6851c96355e;hb=a70930549d1b741704dd7af4e6bb0e89f6f8a519;hpb=afb634a80f946634454a5d067a92aa600227bd93

diff --git a/misc/test_vm/scripts/pad b/misc/test_vm/scripts/pad
deleted file mode 100755
index c1c5329..0000000
--- a/misc/test_vm/scripts/pad
+++ /dev/null
@@ -1,30 +0,0 @@
-#! /usr/bin/perl
-
-# Pad a file with zero bytes to make its length
-# an even multiple of some value.
-
-# $Revision: 1.1 $
-
-use strict qw(refs vars);
-use FileHandle;
-
-if ( scalar(@ARGV) != 2 ) {
-    print STDERR "usage: pad <filename> <multiple>\n";
-    exit 1;
-}
-
-my $filename = shift @ARGV;
-my $multiple = shift @ARGV;
-
-my $size = (-s $filename);
-die "Couldn't get size of $filename: $!" if ( !defined $size );
-
-my $num_pad = ($multiple - ($size % $multiple)) % $multiple;
-
-my $buf = chr(0) x $num_pad;
-
-my $fh = new FileHandle(">>$filename");
-die "Couldn't open $filename: $!" if ( !defined $fh );
-binmode $fh;
-syswrite $fh, $buf, $num_pad, 0;
-$fh->close();