xref: /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/run/noswitch.t (revision 0:68f95e015346)
1#!./perl
2
3BEGIN {
4    print "1..3\n";
5    *ARGV = *DATA;
6}
7print "ok 1\n";
8print <>;
9print "ok 3\n";
10
11__DATA__
12ok 2 - read from aliased DATA filehandle
13