فهرست منبع

Handle null content with fewer errors

Zachary Kotlarek 12 سال پیش
والد
کامیت
cbe9697c16
1فایلهای تغییر یافته به همراه6 افزوده شده و 0 حذف شده
  1. 6 0
      Fetch.pm

+ 6 - 0
Fetch.pm

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