aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorhpa <hpa>2003-04-10 06:25:59 +0000
committerhpa <hpa>2003-04-10 06:25:59 +0000
commitab40c49bff59eaea97880151ba736c67f2eb4f86 (patch)
treefd30179b5298e790420cc5a3ee89d867945b09ae
parentdb6243d5628dc44a7dcd316ffb5a55a26637ec1b (diff)
downloadsyslinux-elf-ab40c49bff59eaea97880151ba736c67f2eb4f86.tar.gz
syslinux-elf-ab40c49bff59eaea97880151ba736c67f2eb4f86.tar.xz
syslinux-elf-ab40c49bff59eaea97880151ba736c67f2eb4f86.zip
Add "use bytes" pragmas
-rw-r--r--bin2c.pl2
-rwxr-xr-xbin2hex.pl3
-rwxr-xr-xfindpatch.pl2
-rwxr-xr-xgenhash.pl2
-rwxr-xr-xkeytab-lilo.pl2
-rwxr-xr-xlss16toppm2
-rwxr-xr-xmkdiskimage.in1
-rwxr-xr-xppmtolss162
-rwxr-xr-xsys2ansi.pl2
9 files changed, 18 insertions, 0 deletions
diff --git a/bin2c.pl b/bin2c.pl
index feb3ee0e..c5498f24 100644
--- a/bin2c.pl
+++ b/bin2c.pl
@@ -15,6 +15,8 @@
# bin2c.pl: binary file to C source converter
#
+eval { use bytes; };
+
if ( $#ARGV != 0 ) {
print STDERR "Usage: $0 table_name < input_file > output_file\n";
exit 1;
diff --git a/bin2hex.pl b/bin2hex.pl
index 8d8909b9..e1dc95fa 100755
--- a/bin2hex.pl
+++ b/bin2hex.pl
@@ -1,4 +1,7 @@
#!/usr/bin/perl
+
+eval { use bytes; };
+
$len = 0;
while ( read(STDIN,$ch,1) ) {
$cc = ord($ch);
diff --git a/findpatch.pl b/findpatch.pl
index ac8ee5c8..09d11369 100755
--- a/findpatch.pl
+++ b/findpatch.pl
@@ -3,6 +3,8 @@
# Script to find the "patch area" of ldlinux.sys
#
+eval { use bytes; };
+
open(SYS, "< ldlinux.sys") or die "$0: Cannot open ldlinux.sys\n";
if ( read(SYS,$sec1,512) != 512 ) {
die "$0: ldlinux.sys: short read\n";
diff --git a/genhash.pl b/genhash.pl
index 6fab579c..b1b4cc0e 100755
--- a/genhash.pl
+++ b/genhash.pl
@@ -3,6 +3,8 @@
# Generate hash values for keywords
#
+eval { use bytes; };
+
while ( defined($keywd = <STDIN>) ) {
chomp $keywd;
diff --git a/keytab-lilo.pl b/keytab-lilo.pl
index e131b438..5a933734 100755
--- a/keytab-lilo.pl
+++ b/keytab-lilo.pl
@@ -15,6 +15,8 @@
# is provided "as is" and without any express or implied warranties.
# --------------------------------------------------------------------------
+eval { use bytes; };
+
$DEFAULT_PATH = "/usr/lib/kbd/keytables";
$DEFAULT_MAP = "us";
$DEFAULT_EXT = ".map";
diff --git a/lss16toppm b/lss16toppm
index 1e1bbbac..225bc946 100755
--- a/lss16toppm
+++ b/lss16toppm
@@ -23,6 +23,8 @@
## The -map causes the color map to be output on stderr.
##
+eval { use bytes; };
+
$map = 0;
foreach $arg ( @ARGV ) {
if ( $arg eq '-map' ) {
diff --git a/mkdiskimage.in b/mkdiskimage.in
index 1b8a3018..522d7172 100755
--- a/mkdiskimage.in
+++ b/mkdiskimage.in
@@ -16,6 +16,7 @@
# Creates a blank MS-DOS formatted hard disk image
#
+eval { use bytes; };
use Fcntl;
use Errno;
use Cwd;
diff --git a/ppmtolss16 b/ppmtolss16
index 8c467fc1..1cc36600 100755
--- a/ppmtolss16
+++ b/ppmtolss16
@@ -46,6 +46,8 @@
## the color #rrggbb (hex) should be assigned index i (decimal)
##
+eval { use bytes; };
+
$magic = 0x1413f33d;
sub rgbconvert($$) {
diff --git a/sys2ansi.pl b/sys2ansi.pl
index d9bec7f7..5113aada 100755
--- a/sys2ansi.pl
+++ b/sys2ansi.pl
@@ -4,6 +4,8 @@
# Perl script to convert a Syslinux-format screen to PC-ANSI
# to display in a color xterm or on the Linux console
#
+eval { use bytes; };
+
@ansicol = (0,4,2,6,1,5,3,7);
$getting_file = 0;