[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