PERL
is($dt, $o, "package name in bless is escaped if needed");
-add_my_to_dump( \$dt );
+no strict 'vars';
is_deeply(scalar eval($dt), $t, "eval reverts dump");
}
PERL
is($dt, $o, "package name in bless is escaped if needed");
-add_my_to_dump( \$dt );
+no strict 'vars';
is_deeply(scalar eval($dt), $t, "eval reverts dump");
}
SKIP: {
}
} # END sub run_tests_for_bless()
-
-sub add_my_to_dump {
- my $s = shift;
-
- $$s =~ s{^(\s*)(\$VAR)}{$1 my $2}mg;
-
- return;
-}
my $q = q| \/ |;
use Data::Dumper;
my $qr = qr{$q};
- eval add_my_to_dump( Dumper $qr );
+ {
+ no strict 'vars';
+ eval Dumper $qr;
+ }
ok(!$@, "Dumping $qr with XS") or diag $@, Dumper $qr;
local $Data::Dumper::Useperl = 1;
- eval add_my_to_dump( Dumper $qr );
+ {
+ no strict 'vars';
+ eval Dumper $qr;
+ }
ok(!$@, "Dumping $qr with PP") or diag $@, Dumper $qr;
}
-
-sub add_my_to_dump {
- $_[0] =~ s{^(\s*)(\$VAR)}{$1 my $2}mg;
-
- return $_[0];
-}