cpan/Pod-Simple/t/20_skip.t

   1 # 20 skip under 5.8
   2
   3 use strict;
   4 use warnings;
   5
   6 BEGIN {
   7     if($ENV{PERL_CORE}) {
   8         chdir 't';
   9         @INC = '../lib';
  10     }
  11 }
  12
  13 print "1..2\n";
  14   print "# Running under Perl v $]\n";
  15 if($] < 5.008) {
  16   print "ok 1 # Skip under Perl before 5.8 ($])\n";
  17 } else {
  18   print "ok 1\n";
  19   print "# ^ not skipping\n";
  20 }
  21
  22 print "ok 2\n";
  23