diff options
Diffstat (limited to 'lib')
| -rwxr-xr-x | lib/Simplestore.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/Simplestore.pm b/lib/Simplestore.pm index aea8b2b..e5d060e 100755 --- a/lib/Simplestore.pm +++ b/lib/Simplestore.pm @@ -4,6 +4,7 @@ ## License: WTFPL <http://sam.zoy.org/wtfpl> use strict; use warnings; +use Carp; our (@ISA, @EXPORT, $VERSION); require Exporter; @@ -15,7 +16,7 @@ sub load { my $file = shift; my ($store, $key, $value); $store = shift if @_; - open(my $handle, '<', $file) or die("Cannot read $file: $!"); + open(my $handle, '<', $file) or confess("Cannot read $file: $!"); while (<$handle>) { chomp; /^(\S+)\s+(.*)$/ or next; @@ -33,7 +34,7 @@ sub load { sub save { my ($file, $store) = @_; my $key; - open(my $handle, '>', $file) or die("Cannot open $file: $!"); + open(my $handle, '>', $file) or confess("Cannot open $file: $!"); foreach $key (keys(%$store)) { foreach (split(/\n/, $store->{$key})) { print $handle "$key\t$_\n"; |