Blame t/recur.t

Packit b48d6e
BEGIN {
Packit b48d6e
    $|++;
Packit b48d6e
    if ($] <= 5.006) {
Packit b48d6e
      print "1..0 # Skip: this test is known to fail with 5.005xx\n";
Packit b48d6e
      # (2007-06-25 akoenig: I have seen it working in the debugger)
Packit b48d6e
      eval "require POSIX; 1" and POSIX::_exit(0);
Packit b48d6e
    }
Packit b48d6e
}
Packit b48d6e
package Acme::Meta;
Packit b48d6e
Packit b48d6e
BEGIN {
Packit b48d6e
  $::Meta::VERSION = $VERSION = 0; # autovivify for perl >= @26370
Packit b48d6e
  $Meta::{'Meta::'} = $main::{'Meta::'};
Packit b48d6e
  $Acme::Meta::{'Meta::'} = $main::{'Meta::'};
Packit b48d6e
}
Packit b48d6e
use strict;
Packit b48d6e
require Test::More;
Packit b48d6e
my $tests = 3;
Packit b48d6e
Test::More->import( tests => $tests );
Packit b48d6e
exit unless $tests;
Packit b48d6e
Test::More::ok(1);
Packit b48d6e
$Acme::Meta::Meta::Pie = "good";
Packit b48d6e
Test::More::is ($Acme::Meta::Meta::Meta::Meta::Pie, "good");
Packit b48d6e
Test::More::use_ok('Devel::Symdump');
Packit b48d6e
Devel::Symdump->rnew("Acme");
Packit b48d6e
Packit b48d6e
__END__
Packit b48d6e
Packit b48d6e
# Local Variables:
Packit b48d6e
# mode: cperl
Packit b48d6e
# cperl-indent-level: 2
Packit b48d6e
# End: