In article [EMAIL PROTECTED],
Shlomi Fish [EMAIL PROTECTED] writes:
In any case, there's an exploitable feature in the count sub-routine in the
testsuite:
sub count {
my ($hole, $tie) = @_;
local $_ = slurp($props{$hole}{work}, $binary);
if (/^\#!/) {
s/^\#