This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
Put the chdir logic into the two new helpers _before_fork() and _after_fork()
[perl5.git] / 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
Unnamed repository; edit this file 'description' to name the repository.