Fix open error messages
authorRicardo Mones <ricardo@mones.org>
Sat, 24 Sep 2016 23:36:13 +0000 (01:36 +0200)
committerRicardo Mones <ricardo@mones.org>
Sat, 24 Sep 2016 23:36:13 +0000 (01:36 +0200)
clawsker

index f4547ca..c182aca 100755 (executable)
--- a/clawsker
+++ b/clawsker
@@ -2167,7 +2167,7 @@ sub load_resource {
     my %meta = ();
     my $line = 0;
     open (RCF, '<:encoding(utf8)', $rc)
-        or die _("Error: opening '{file}' for reading", file => $rc) . ": $!";
+        or die _("Error: opening '{file}' for reading", file => $rc) . ": $!\n";
     my $section = '_'; # default unnamed section
     while (<RCF>) {
         chomp;
@@ -2195,7 +2195,7 @@ sub load_resource {
 sub save_resource {
     my ($rc, $data, $meta) = @_;
     open (RCF, '>:utf8', $rc)
-        or die _("Error: opening '{file}' for writing", file => $rc) . ": $!";
+        or die _("Error: opening '{file}' for writing", file => $rc) . ": $!\n";
     my @sections = keys %$data;
     if (defined $meta) {
         @sections = sort {