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

diff --git a/misc/test_vm/scripts/mkcdisk b/misc/test_vm/scripts/mkcdisk
deleted file mode 100755
index d3f4477..0000000
--- a/misc/test_vm/scripts/mkcdisk
+++ /dev/null
@@ -1,25 +0,0 @@
-#! /usr/bin/perl
-
-# Build a binary image containing a pseudo fat filesystem with the listed files
-
-# $Revision: 1.1 $
-use FileHandle; 
-
-if ( scalar(@ARGV) < 2 ) {
-    print STDERR "usage: mkuprog <diskImage> <filenames>\n";
-    exit 1;
-}
-
-
-$filename = shift @ARGV;
-$filecount = scalar ( @ARGV );
-
-$fh = new FileHandle(">$filename");
-
-write
-
-while (scalar(@ARGV)) {
-    $filename = shift @ARGV;
-
-    print  "got file ", $filename, "\n";
-}