Help for this page

Select Code to Download


  1. or download this
    >perl -w -e "print 1 if !defined($pname) && $pname ne ''"
Use of uninitialized value in string ne at -e line 1.
  2. or download this
    if (!defined($pname) || $pname eq '') {
    croak 'We want something real in $pname. Not undef or the empty st
+ring';
}