$Bill Luebkert wrote:
> (my $prog = $0) =~ s/^.*[\\\/]//;
> my $usage = <<EOD;
>
> Usage: $prog [-d] [-a] [-f] [-q] [-s] [<args>]
>
> -d debug (-d=2 for perldoc debug)
> -a if present perform the following logic, else call perldoc
> with <arglist> and return result of first successful :
Whoops forgot to change the usage - I actually implemented:
-a if present perform the following logic, else call perldoc
with <arglist> and return result of each:
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
