parse-dla.pl: Add better error handling

1 files changed, 4 insertions, 4 deletions

diff --git a/english/lts/security/parse-dla.pl b/english/lts/security/parse-dla.pl
index cedcf962820..92aa58acdf1 100755
--- a/english/lts/security/parse-dla.pl
+++ b/english/lts/security/parse-dla.pl
@@ -184,10 +184,10 @@ if (!(-d $year)){
 
 sub make_data{
   if (-f $data){
-    print STDERR "$data already exists in filename '$adv'\n";
+    print STDERR "Data file \"$data\" already exists for advisory in file '$adv'\n";
     return;
   }
-  open DATA, ">", "$data";
+  open DATA, ">", "$data" or die "Can't write to data file \"$data\"";
   print DATA "<define-tag pagetitle>$pagetitle</define-tag>\n";
   print DATA "<define-tag report_date>$date</define-tag>\n";
   print DATA "<define-tag secrefs>@dbids</define-tag>\n" if @dbids;
@@ -201,10 +201,10 @@ sub make_data{
 
 sub make_wml{
   if (-f $wml){
-    print STDERR "$wml already exists in filename '$adv'\n";
+    print STDERR "WML file \"$wml\" already exists for advisory in file '$adv'\n";
     return;
   }
-  open WML, ">", "$wml";
+  open WML, ">", "$wml" or die "Can't write to WML file \"$wml\"";
   print WML "<define-tag description>LTS security update</define-tag>\n";
   print WML "<define-tag moreinfo>$moreinfo\n</define-tag>\n";
   print WML "\n# do not modify the following line\n";