> MESSAGES:
>
> Useless use of string in void context at /common/bin/whaduname.AA line
> 56.
> Useless use of string in void context at /common/bin/whaduname.AA line
> 60.
> The lines and supporting evidence:
>
> 33 $cdate='/common/lib/cdatetest';
> 35 $cnum='/common/lib/cnumtest';
>
> 56 open(CD, ">$cdate") || "Can't open $cdate: $!";
> 60 open(CN, ">$cnum") || "Can't open $cnum: $!";
>
What do you want to happen if open fails? Do you want to print the
strings after the || or pass them to die or what? A useless use of a
string in void context means just that. The code has a string stuck in
there somewhere and perl has no idea what to do with it. So it's
useless.
Dan
