xref: /openbsd-src/gnu/usr.bin/perl/lib/perl5db/t/rt-121509-restart-after-chdir (revision b8851fcc53cbe24fd20b090f26dd149e353f6174)
1*b8851fccSafresh1#!/usr/bin/perl
2*b8851fccSafresh1
3*b8851fccSafresh1use strict;
4*b8851fccSafresh1use warnings;
5*b8851fccSafresh1
6*b8851fccSafresh1use IO::Handle;
7*b8851fccSafresh1
8*b8851fccSafresh1STDOUT->autoflush(1);
9*b8851fccSafresh1
10*b8851fccSafresh1my $tmpdir = $ENV{__PERLDB_TEMP_DIR};
11*b8851fccSafresh1
12*b8851fccSafresh1sub _do_chdir
13*b8851fccSafresh1{
14*b8851fccSafresh1    chdir($tmpdir);
15*b8851fccSafresh1}
16*b8851fccSafresh1
17*b8851fccSafresh1sub _after_chdir
18*b8851fccSafresh1{
19*b8851fccSafresh1    print "_after_chdir\n";
20*b8851fccSafresh1}
21*b8851fccSafresh1
22*b8851fccSafresh1sub _finale
23*b8851fccSafresh1{
24*b8851fccSafresh1    my $i = 1;
25*b8851fccSafresh1    while (1)
26*b8851fccSafresh1    {
27*b8851fccSafresh1        print "In _finale No " . ($i++) . "\n";
28*b8851fccSafresh1    }
29*b8851fccSafresh1}
30*b8851fccSafresh1
31*b8851fccSafresh1_do_chdir();
32*b8851fccSafresh1_after_chdir();
33*b8851fccSafresh1_finale();
34