Displaying 1 result from an estimated 1 matches for "interpnam".
Did you mean:
interpna
2005 Mar 06
1
testers sought for script to interpret ELF/klibc executables
...h: no interpreter\n";
return;
}
if ($interp_size < 2 || $interp_size > PATH_MAX) {
print "$path: bad sized interpreter\n";
return;
}
if (! seek ($fh, $interp_offset, 0)) {
print "$path: cant seek to interp\n";
return;
}
my $interpName;
$rc = read ($fh, $interpName, $interp_size);
if (! defined ($rc) || $rc != $interp_size) {
print "$path: cant read interp\n";
return;
}
if ($interpName !~ /\0$/) {
print "$path: missing null in interp\n";
return;
}
$interpName =~ s/.$//;
if...