From 4f1b1bd345ddae2f1131396824d2f1a74a542cc7 Mon Sep 17 00:00:00 2001
From: Angelo Naselli <anaselli@linux.it>
Date: Tue, 4 Nov 2014 21:58:57 +0100
Subject: Fixed for perl_checker

---
 lib/AdminPanel/Shared/JournalCtl.pm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/lib/AdminPanel/Shared/JournalCtl.pm b/lib/AdminPanel/Shared/JournalCtl.pm
index 8cee01bd..a241db74 100644
--- a/lib/AdminPanel/Shared/JournalCtl.pm
+++ b/lib/AdminPanel/Shared/JournalCtl.pm
@@ -112,23 +112,23 @@ sub getLog {
         $params .= " -b";
     }
     if ($self->since ne "") {
-        $params .= " --since=".'"'.$self->since.'"';
+        $params .= " --since=" . '"' . $self->since . '"';
     }
     if ($self->until ne "") {
-        $params .= " --until=".'"'.$self->until.'"';
+        $params .= " --until=" . '"' . $self->until .'"';
     }
     if ($self->unit ne "") {
-        $params .= " --unit=".$self->unit;
+        $params .= " --unit=" . $self->unit;
     }
     if ($self->priority ne "") {
-        $params .= " --priority=".$self->priority;
+        $params .= " --priority=" . $self->priority;
     }
 
     $ENV{'PATH'} = '/usr/sbin:/usr/bin';
-    my $jctl = "/usr/bin/journalctl ". $params;
+    my $jctl = "/usr/bin/journalctl " . $params;
 
     # TODO remove or add to log
-    print " Running  " . $jctl ."\n";
+    print " Running  " . $jctl . "\n";
     my @content = `$jctl`;
 
     return \@content;
-- 
cgit v1.2.1