Lines Matching refs:str
31 my $str = shift;32 warn "$linenum: $str\n";91 my $str = uncstring($arg);92 if (!defined($str)) {94 $str = '';96 if ($str =~ s/\0//g) {98 $str = '';100 return $str . "\0";110 my $str = uncstring($arg);111 if( ! defined($str) ){113 $str = '';115 return pack("L", length($str)) . $str;