t/run/switchPx.aux

   1 Some stuff that's not Perl
   2
   3 This CPP directive should not be read.
   4 #define BARMAR 1
   5
   6 #perl
   7
   8 Still not perl.
   9
  10 #!
  11
  12 still not perl
  13
  14 #!/something/else
  15
  16 still not perl
  17
  18 #!/some/path/that/leads/to/perl -l
  19
  20 # The -l switch should be applied from the #! line.
  21 # Unfortunately, -P has a bug whereby the #! line is ignored.
  22 # If this test suddenly starts printing blank lines that bug is fixed.
  23
  24 #define FOO "ok 1\n"
  25
  26 #ifdef BARMAR
  27 #   define YAR "not ok 2\n"
  28 #else
  29 #   define YAR "ok 2\n"
  30 #endif
  31
  32 print "1..2\n";
  33 print FOO;
  34 print YAR;