Просмотр исходного кода

Handle null content with fewer errors

Zachary Kotlarek 12 лет назад
Родитель
Сommit
cbe9697c16
1 измененных файлов с 6 добавлено и 0 удалено
  1. 6 0
      Fetch.pm

+ 6 - 0
Fetch.pm

@@ -605,7 +605,13 @@ sub content() {
 		print STDERR "Fetch::content()\n";
 	}
 
+	# Extract content (if any)
 	my $data = $self->{'content'};
+	if (!$data) {
+		return undef();
+	}
+
+	# Standardize line endings
 	$data =~ s/\r\n/\n/;
 
 	# Return an array when requested