diff options
author | Andrzej Giniewicz | 2016-07-30 20:06:50 +0200 |
---|---|---|
committer | Andrzej Giniewicz | 2016-07-30 20:06:50 +0200 |
commit | ae3861380d07251551de2d4897d44ffc6bccc151 (patch) | |
tree | 163d902c60e0ec97bf04632e09041a30a48d31a7 /daggerfall-launcher.pl | |
parent | 8157eadb3ad4b9e76a2ad51c9e6ebf0c325c28e8 (diff) | |
download | aur-daggerfall.tar.gz |
daggerfall: changed url, fixed perl errors
Diffstat (limited to 'daggerfall-launcher.pl')
-rwxr-xr-x | daggerfall-launcher.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/daggerfall-launcher.pl b/daggerfall-launcher.pl index 9df29a211d26..db612dd84c84 100755 --- a/daggerfall-launcher.pl +++ b/daggerfall-launcher.pl @@ -726,7 +726,7 @@ sub get_archived_saves if ( ! exists $saves{$slot}{$name} ) { $saves{$slot}{$name} = []; } - push($saves{$slot}{$name}, $date); + push(@{$saves{$slot}{$name}}, $date); } } return %saves; @@ -1724,7 +1724,7 @@ if ($opt_list_archived_saves) { } else { foreach my $slot (sort keys %saves) { print "Archived saves from slot $slot\n\n"; - foreach my $name (sort keys $saves{$slot}) { + foreach my $name (sort keys @{$saves{$slot}}) { print " saves named $name\n\n"; foreach my $date (sort @{$saves{$slot}{$name}}) { $date =~ s/_/./; |