--- trunk/Estraier.pm	2006/01/28 16:43:45	93
+++ trunk/Estraier.pm	2006/01/28 17:58:22	96
@@ -92,7 +92,8 @@
 =cut
 
 sub _s {
-	my $text = $_[1] || return;
+	my $text = $_[1];
+	return unless defined($text);
 	$text =~ s/\s\s+/ /gs;
 	$text =~ s/^\s+//;
 	$text =~ s/\s+$//;