($dest = );
$go = $over ? 1 : &filep($dest, 1);
}
Since you asked:
>Hi. I'm confused.
>
>I don't have a copy of the Llama, and don't understand what the -o option >is
>supposed to do. I also don't know what a 'conditional hook test' is.
...
>Oh,
Can someone tell me what is going wrong with my conditional hook tests as marked below?
#!/usr/bin/perl -w
use warnings;
#this program's specification is on page 167
#in the Llama book under exercise 1
my ($source, $go, $dest, $expression, $over);
print"\$over = 1" if($ARGV[0] eq "-o");
until($go)
