summaryrefslogtreecommitdiffstats
path: root/contrib/syslinux/latest/utils/bin2hex.pl
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/syslinux/latest/utils/bin2hex.pl')
-rw-r--r--contrib/syslinux/latest/utils/bin2hex.pl48
1 files changed, 0 insertions, 48 deletions
diff --git a/contrib/syslinux/latest/utils/bin2hex.pl b/contrib/syslinux/latest/utils/bin2hex.pl
deleted file mode 100644
index 778b699..0000000
--- a/contrib/syslinux/latest/utils/bin2hex.pl
+++ /dev/null
@@ -1,48 +0,0 @@
-#!/usr/bin/perl
-## -----------------------------------------------------------------------
-##
-## Copyright 2003-2008 H. Peter Anvin - All Rights Reserved
-##
-## Permission is hereby granted, free of charge, to any person
-## obtaining a copy of this software and associated documentation
-## files (the "Software"), to deal in the Software without
-## restriction, including without limitation the rights to use,
-## copy, modify, merge, publish, distribute, sublicense, and/or
-## sell copies of the Software, and to permit persons to whom
-## the Software is furnished to do so, subject to the following
-## conditions:
-##
-## The above copyright notice and this permission notice shall
-## be included in all copies or substantial portions of the Software.
-##
-## THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
-## EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
-## OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
-## NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
-## HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
-## WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
-## FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
-## OTHER DEALINGS IN THE SOFTWARE.
-##
-## -----------------------------------------------------------------------
-
-eval { use bytes; };
-eval { binmode STDIN; };
-
-$len = 0;
-while ( read(STDIN,$ch,1) ) {
- $cc = ord($ch);
- $s = sprintf("%x", $cc);
- print $s;
- $len += length($s);
- if ( $len > 72 ) {
- print "\n";
- $len = 0;
- } else {
- print " ";
- $len++;
- }
-}
-print "\n" if ( $len );
-print "*\n";
-exit 0;