1*898184e3Ssthen#!/usr/bin/perl 2*898184e3Ssthen# 3*898184e3Ssthen# This code is used by lib/perl5db.t !!! 4*898184e3Ssthen# 5*898184e3Ssthen 6*898184e3Ssthenfoo(); 7*898184e3Ssthen 8*898184e3Ssthensub foo { 9*898184e3Ssthen bar(); 10*898184e3Ssthen} 11*898184e3Ssthen 12*898184e3Ssthen 13*898184e3Ssthensub bar { 14*898184e3Ssthen baz(); 15*898184e3Ssthen} 16*898184e3Ssthen 17*898184e3Ssthensub baz { 18*898184e3Ssthen 1; 19*898184e3Ssthen} 20*898184e3Ssthen 21*898184e3Ssthen1; 22