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

diff --git a/misc/test_vm/scripts/pcat b/misc/test_vm/scripts/pcat
deleted file mode 100755
index d58f9fd..0000000
--- a/misc/test_vm/scripts/pcat
+++ /dev/null
@@ -1,23 +0,0 @@
-#! /usr/bin/perl
-
-# A version of cat written in perl.
-
-use strict qw(refs vars);
-use FileHandle;
-
-binmode STDOUT;
-
-my $buf = chr(0) x 1024;
-
-my $file;
-while ( ($file = shift @ARGV) ) {
-    my $fh = new FileHandle("<$file");
-    (defined $fh) || die "Couldn't open $file: $!\n";
-    binmode $fh;
-
-    my $n;
-    while ( ($n = sysread($fh, $buf, 1024)) > 0 ) {
-	syswrite( STDOUT, $buf, $n );
-    }
-    $fh->close();
-}