t/run/noswitch.t

   1 #!./perl
   2
   3 BEGIN {
   4     print "1..3\n";
   5     *ARGV = *DATA;
   6 }
   7 print "ok 1\n";
   8 print <>;
   9 print "ok 3\n";
  10
  11 __DATA__
  12 ok 2 - read from aliased DATA filehandle