projects
/
clawsker.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e7d9476
)
Fix open error messages
author
Ricardo Mones
<ricardo@mones.org>
Sat, 24 Sep 2016 23:36:13 +0000
(
01:36
+0200)
committer
Ricardo Mones
<ricardo@mones.org>
Sat, 24 Sep 2016 23:36:13 +0000
(
01:36
+0200)
clawsker
patch
|
blob
|
history
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 {