Add ARM files

[dh-make-perl] / dev / arm / libdevel-symdump-perl / libdevel-symdump-perl-2.08 / t / recur.t

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