source: trunk/essentials/dev-lang/perl/t/cmd/switch.t@ 3315

Last change on this file since 3315 was 3181, checked in by bird, 19 years ago

perl 5.8.8

File size: 1.5 KB
Line 
1#!./perl
2
3# $RCSfile: switch.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:14 $
4
5print "1..18\n";
6
7sub foo1 {
8 $_ = shift(@_);
9 $a = 0;
10 until ($a++) {
11 next if $_ eq 1;
12 next if $_ eq 2;
13 next if $_ eq 3;
14 next if $_ eq 4;
15 return 20;