issue211.t 383 B

1234567891011121314
  1. #! /usr/bin/env perl
  2. # http://code.google.com/p/perl-compiler/issues/detail?id=211
  3. # eval die and stderr/stdout order
  4. BEGIN{
  5. if ($ENV{HARNESS_ACTIVE}) {
  6. print "1..0 #skip under harness\n";
  7. exit 0;
  8. }
  9. }
  10. system(qq{
  11. $^X -Mblib script/perlcc -O3 -r -e'print "1..3\n";print "ok 1 - howdy\n";print "ok 2 - dooty\n";
  12. eval { die "foo" }; warn "ok 3 - wazzup \$\@\n" if \$\@;'
  13. });