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

diff --git a/misc/test_vm/scripts/pw b/misc/test_vm/scripts/pw
deleted file mode 100755
index 7edc728..0000000
--- a/misc/test_vm/scripts/pw
+++ /dev/null
@@ -1,24 +0,0 @@
-#! /usr/bin/perl
-
-# Inspect a 32 word at a specified offset in a file.
-# $Revision: 1.1 $
-
-use strict qw(refs vars);
-use FileHandle;
-
-my $filename = shift @ARGV;
-my $offset = shift @ARGV;
-
-((defined $filename) && (defined $offset))
-    || die "Usage: pw <filename> <offset>\n";
-
-my $fh = new FileHandle("<$filename");
-printf( "%08x\n", ReadWord($fh, $offset) );
-
-sub ReadWord {
-    my ($fh, $offset) = @_;
-    seek $fh, $offset, SEEK_SET;
-    my $buf = 'X' x 4;
-    read $fh, $buf, 4;
-    return unpack('V',$buf);
-}