ispman/lib/ISPMan/DNSMan MXrecords.pm,1.18,1.19

Update of /cvsroot/ispman/ispman/lib/ISPMan/DNSMan
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21964/lib/ISPMan/DNSMan

Modified Files:
	MXrecords.pm 
Log Message:
fixed perl warning

Index: MXrecords.pm
===================================================================
RCS file: /cvsroot/ispman/ispman/lib/ISPMan/DNSMan/MXrecords.pm,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -d -r1.18 -r1.19
--- MXrecords.pm	22 Jan 2004 00:26:16 -0000	1.18
+++ MXrecords.pm	6 Feb 2004 17:06:18 -0000	1.19
@@ -110,7 +110,8 @@
 
    # sort mx array, so origin record (@) with highest priority (lowest value) is at top
    my @sorted=sort { $a->{'origion'} cmp $b->{'origion'} || $a->{'pref'} <=> $b->{'pref'}} @$mxrecords;
-   return @sorted->[0]{'host'}
+
+   return $sorted[0]{'host'};
 }
 
 1;



-------------------------------------------------------
The SF.Net email is sponsored by EclipseCon 2004
Premiere Conference on Open Tools Development and Integration
See the breadth of Eclipse activity. February 3-5 in Anaheim, CA.
http://www.eclipsecon.org/osdn