use strict;
use warnings;
-use Test::More tests => 59;
+use Test::More tests => 60;
my %_re = (
bareword => sub { qr/^Bareword\s+['"]?\s*$_[0]\s*['"]?\s+not\s+allowed\s+while\s+["']?\s*strict\s+subs\s*['"]?\s+in\s+use\s+at\s+$_[1]\s+line\s+$_[2]/ },
use subs::auto;
eval { onlycalledonce 1, 2 };
-_got_undefined('onlycalledonce', 72);
+_got_undefined('onlycalledonce', __LINE__-1);
eval { Test::More->import() };
_got_ok('don\'t touch class names');
is($wut, 17, 'wut really was executed');
eval { qux };
-_got_undefined('qux', 103);
+_got_undefined('qux', __LINE__-1);
{
no strict 'refs';
}
eval { no warnings; no strict; qux };
-_got_undefined('qux', 119);
+_got_undefined('qux', __LINE__-1);
eval { no warnings; no strict; blech };
-_got_undefined('blech', 122);
+_got_undefined('blech', __LINE__-1);
sub foo {
if ($_[2]) {
is($warn, undef, 'no redefine warning');
eval { qux };
-_got_undefined('qux', 162);
+_got_undefined('qux', __LINE__-1);
eval { blech };
-_got_undefined('blech', 165);
+_got_undefined('blech', __LINE__-1);
# === Up to there =============================================================
no subs::auto;
sub blech;
eval { blech };
-_got_undefined('blech', 226);
+_got_undefined('blech', __LINE__-1);
sub flop;
# eval "meh";
# _got_undefined('meh', 1, eval => 1, todo => 'Fails because of some bug in perl or Variable::Magic');
}
+
+my $buf = '';
+open DONGS, '>', \$buf or die "open-in-memory: $!";
+print DONGS "hlagh\n";
+is($buf, "hlagh\n", 'filehandles should\'t be touched');
+close DONGS;