[SCM] Packaging of Net::Citadel in Debian branch, debian, updated. debian/0.16-1-45-gd21e85b

Robert James Clay jame at rocasa.us
Wed Jun 5 17:20:30 UTC 2013


The following commit has been merged in the debian branch:
commit 046f105be19867c2bd1c32bc44fb7dff02959238
Author: Robert James Clay <jame at rocasa.us>
Date:   Sun Oct 21 20:57:01 2012 -0400

    Correct returning the information from the citadel_mrtg function as hash.

diff --git a/lib/Net/Citadel.pm b/lib/Net/Citadel.pm
index 54375e4..d14996c 100644
--- a/lib/Net/Citadel.pm
+++ b/lib/Net/Citadel.pm
@@ -807,20 +807,14 @@ sub citadel_mrtg {
     }
 
     # Create the %mrtg hash from the information in the @mrtg_lines array
-    if ( lc($type) = q{users} ) {
-        $mrtg = {
-            ConnectedUsers => @mrtg_lines[0],
-            ActiveUsers => @mrtg_lines[1],
-        };
+    if ( lc($type) eq q{users} ) {
+        $mrtg{'ConnectedUsers'} = $mrtg_lines[0];
+        $mrtg{'ActiveUsers'} = $mrtg_lines[1];
     } else {
-        $mrtg = {
-            HighMsg => @mrtg_lines[0],
-        };
+        $mrtg{'HighMsg'} = $mrtg_lines[0];
     }
-    $mrtg = {
-        SystemUptime => @mrtg_lines[2],
-        SystemName => @mrtg_lines[3],
-    };
+    $mrtg{'SystemUptime'} = $mrtg_lines[2];
+    $mrtg{'SystemName'} = $mrtg_lines[3];
 
     # Return the MRTG information as the mrtg hash.
     return %mrtg;

-- 
Packaging of Net::Citadel in Debian



More information about the Pkg-perl-cvs-commits mailing list