#!./perl
# $RCSfile: subval.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:13 $
'true1';
if ($_[0]) { 'true2'; }
}
'true1';
if ($_[0]) { return 'true2'; } else { return 'true3'; }
'true0';
}
'true1';
}
'true1';
}
'true1';
'true2' if $_[0];
}
'true1';
}
print "1..36\n";
# Now test to see that recursion works using a Fibonacci number generator
$level++;
$foo = 1;
}
else {
}
$level--;
$foo;
}
@good = (0,1,1,2,3,5,8,13,21,34,55,89);
for ($i = 1; $i <= 10; $i++) {
$foo = $i + 12;
}
else {
}
}
(1,2,3);
}
do {
return (1,2,3);
(3,2,1);
};
0;
}
}
package main;
$i = 28;
open(FOO,">Cmd_subval.tmp");
print FOO "blah blah\n";
&file_main(*F);
&info_main;
&file_package(*F);
&info_package;
unlink 'Cmd_subval.tmp';
sub file_main {
local(*F) = @_;
$i++;
eof F ? print "not ok $i\n" : print "ok $i\n";
}
sub info_main {
local(*F);
$i++;
&iseof(*F);
}
sub iseof {
local(*UNIQ) = @_;
$i++;
eof UNIQ ? print "(not ok $i)\n" : print "ok $i\n";
}
{package foo;
local(*F) = @_;
$main'i++;
}
local(*F);
$main'i++;
&iseof(*F);
}
sub iseof {
local(*UNIQ) = @_;
$main'i++;
}
}
my $href = {};