include $@ in error

gbxyz · gbxyz · commit 65735ad5eae7 · 2025-09-24T15:14:07.000+01:00
diff --git a/lib/Net/RDAP.pm b/lib/Net/RDAP.pm
@@ -449,10 +449,12 @@ sub _get {
     } else {
         unlink($file) if (-e $file);
 
+        chomp($@);
+
         return $self->error(
             url         => $url,
             errorCode   => 500,
-            title       => 'JSON parse error',
+            title       => sprintf('JSON parse error: %s', $@),
         );
     }
 }

Original file line number	Diff line number	Diff line change
`@@ -449,10 +449,12 @@ sub _get {`
`449`	`449`	`} else {`
`450`	`450`	`unlink($file) if (-e $file);`
`451`	`451`
	`452`	`+ chomp($@);`
	`453`	`+`
`452`	`454`	`return $self->error(`
`453`	`455`	`url => $url,`
`454`	`456`	`errorCode => 500,`
`455`		`- title => 'JSON parse error',`
	`457`	`+ title => sprintf('JSON parse error: %s', $@),`
`456`	`458`	`);`
`457`	`459`	`}`
`458`	`460`	`}`