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

#!./perl

# $RCSfile: switch.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:14 $

print "1..18\n";

sub foo1 {
    $_ = shift(@_);
    $a = 0;
    until ($a++) {
        next if $_ eq 1;
        next if $_ eq 2;
        next if $_ eq 3;
        next if $_ eq 4;
        return 20;