Show which ocean failed if yppedia-chart-parser fails

diff --git a/yarrg/update-master-info b/yarrg/update-master-info
index 6d1cae7063bfa0947ca81080b3ee63db8610bc1b..3f570a68f26b3a75e297d107a3e7e1de4953550d 100755 (executable)
--- a/yarrg/update-master-info
+++ b/yarrg/update-master-info
@@ -9,7 +9,7 @@ sub full ($) {
     my ($ocean) = @_;
     quick($ocean);
     print "## updating topology of $ocean\n";
     my ($ocean) = @_;
     quick($ocean);
     print "## updating topology of $ocean\n";

-    system('./yppedia-chart-parser',$ocean); die $? if $?;
+    system('./yppedia-chart-parser',$ocean); die "$ocean $?" if $?;

 }
 
 sub quick ($) {
 }
 
 sub quick ($) {