Fix open error messages

diff --git a/clawsker b/clawsker
index f4547ca29dd566489fd82ae2b619dcab9033fb00..c182aca33a7deffc1699355d138a25e97e31aacc 100755 (executable)
--- a/clawsker
+++ b/clawsker
@@ -2167,7 +2167,7 @@ sub load_resource {
     my %meta = ();
     my $line = 0;
     open (RCF, '<:encoding(utf8)', $rc)
     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;
     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)
 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 {
     my @sections = keys %$data;
     if (defined $meta) {
         @sections = sort {