[MacPerl] error reading file with -w

[g3pb <g3pb@alaska.net>]

how do i use the defined() function to avoid getting this error with the
script below?


# Value of <HANDLE> construct can be "0"; test with defined().

#!perl -w
$x = "x.txt";
open(IN, "<$x") or warn("warning cant open $x");
while ($d=<IN>) {
 
}


thanks,

-- hcir
mailto:g3pb@alaska.net



# ===== Want to unsubscribe from this list?
# ===== Send mail with body "unsubscribe" to macperl-request@macperl.org