test6_v revision 1
2796N/A# perl
4204N/A
2796N/Ause V;
2796N/A
2796N/Adprofpp( '-T' );
2796N/A$expected =
2796N/Aqq{main::bar
2796N/Amain::baz
2796N/A main::bar
2796N/A main::foo
2796N/A main::bar
2796N/Amain::foo
2796N/A main::bar
2796N/A};
2796N/Areport 18, sub { $expected eq $results };
2796N/A
2796N/A