#!./perl
# $RCSfile: do.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:45 $
sub foo1
{
'value';
}
sub foo2
{
shift;
$x = 'value';
$x;
}
my $test = 1;
# You have to do it this way or VMS will get confused.
$test++;
return $ok;
}
print "1..22\n";
# Test do &sub and proper @_ handling.
$_[0] = 0;
ok( $_[0] == 0 );
$_[0] = 0;
ok( $_[0] == 0 );
ok 1 foreach @_;
}
@x = ("jeepers", "okydoke");
@y = ("uhhuh", "yeppers");
}
my $a = do "$$.16";
}
my @a = do "$$.17";
}
do "$$.18";
# bug ID 20010920.007
# 6 must be interpreted as a file name here
# [perl #19545]
END {
}