Fix syntaxe

5 years ago · 887d5cf1b8
parent 18bb29265a
commit 887d5cf1b8
1 changed files with 2 additions and 2 deletions
--- a/Check.pm
+++ b/Check.pm
@ -51,8 +51,8 @@ sub action
        }

        # Age
-        my $lastBackup = ( @Backups[-1]->{type} =~ m/^full|incr$/ ) ? -1 : -2;
-        $lastAge = sprintf("%.1f", (time - $Backups[$lastBackup]{startTime}) / (24 * 3600));
+        my $lastBackup = ( $Backups[-1]->{type} =~ m/^full|incr$/ ) ? -1 : -2;
+        $lastAge = sprintf("%.1f", (time - $Backups[$lastBackup]->{startTime}) / (24 * 3600));

        # Color for age
        if ( $lastAge < $frequency ) {