Master/upx
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

Added a check for large file size.

Browse Source 
committer: mfx <mfx> 1027598441 +0000
This commit is contained in:
Markus F.X.J. Oberhumer
2002-07-25 12:00:41 +00:00
parent 1ef25b356c
commit f7d66c8b50
1 changed files with 20 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/stub/scripts/bin2h.pl
+20 -5
View File
@@ -41,17 +41,32 @@ $ofile = shift || die;
$opt_q = "";
$opt_q = shift if ($#ARGV >= 0);
open(INFILE,$ifile) || die "$ifile\n";
# open ifile
open(INFILE,$ifile) || die "open $ifile\n";
binmode(INFILE);
open(OUTFILE,">$ofile") || die "$ofile\n";
binmode(OUTFILE);
# check file size
@st = stat($ifile);
if (1 && $st[7] <= 0) {
print STDERR "$ifile: ERROR: emtpy file\n";
exit(1);
}
if (1 && $st[7] > 64*1024) {
print STDERR "$ifile: ERROR: file is too big (${st[7]} bytes)\n";
if ($st[7] > 1024*1024)
print STDERR " (please upgrade your binutils to 2.12.90.0.15 or better)\n";
exit(1);
}
# read whole file
$data = <INFILE>;
close(INFILE);
close(INFILE) || die;
$n = length($data);
die if ($n != $st[7]);
# print
# open ofile
open(OUTFILE,">$ofile") || die "open $ofile\n";
binmode(OUTFILE);
select(OUTFILE);
$if = $ifile;