summarylogtreecommitdiffstats
path: root/daggerfall-launcher.pl
diff options
context:
space:
mode:
authorAndrzej Giniewicz2016-07-30 20:06:50 +0200
committerAndrzej Giniewicz2016-07-30 20:06:50 +0200
commitae3861380d07251551de2d4897d44ffc6bccc151 (patch)
tree163d902c60e0ec97bf04632e09041a30a48d31a7 /daggerfall-launcher.pl
parent8157eadb3ad4b9e76a2ad51c9e6ebf0c325c28e8 (diff)
downloadaur-daggerfall.tar.gz
daggerfall: changed url, fixed perl errors
Diffstat (limited to 'daggerfall-launcher.pl')
-rwxr-xr-xdaggerfall-launcher.pl4
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/_/./;