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