Merge pull request #62 from renderorange/add-errstr-to-parse-error

Add errstr to parse error output
davorg-cpan · Jul 7, 2024 · 30c9ac6 · 30c9ac6
2 parents 02125b9 + d3648e0
commit 30c9ac6
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/lib/XML/Feed.pm b/lib/XML/Feed.pm
@@ -48,7 +48,11 @@ sub parse {
     } else {
         $xml = $class->get_file($stream);
     }
-    return $class->error("Can't get feed XML content from $stream")
+    my $errstr = "Can't get feed XML content from $stream";
+    if ($class->errstr) {
+        $errstr .= ": " . $class->errstr;
+    }
+    return $class->error($errstr)
         unless $xml;
     my $format;
     if ($specified_format) {