t/run/switchF1.t

   1 #!perl -w
   2 print "1..5\n";
   3
   4 my $file = "Run_switchF1.pl";
   5
   6 open F, ">$file" or die "Open $file: $!";
   7
   8 my $prog = <<'EOT';
   9 #!./perl -anF[~#QQ\\xq']
  10
  11 BEGIN {
  12     *ARGV = *DATA;
  13 }
  14 print "@F";
  15
  16 __DATA__
  17 okx1
  18 okq2
  19 ok\3
  20 ok'4
  21 EOT
  22
  23 # 2 of the characters toke.c used to use to quote the split parameter:
  24 $prog =~ s/QQ/\x01\x80/;
  25 # These 2 plus ~ # and ' were enough to make perl choke
  26 print F $prog;
  27 close F or die "Close $file: $!";
  28
  29 print system ($^X, $file) ? "not ok 5\n" : "ok 5\n";
  30
  31 unlink $file or die "Unlink $file: $!";