[Devmon-devel] SF.net SVN: devmon:[89] trunk/modules/dm_config.pm

[<buc...@us...>]

Revision: 89
          http://devmon.svn.sourceforge.net/devmon/?rev=89&view=rev
Author:   buchanmilne
Date:     2008-09-04 08:15:59 +0000 (Thu, 04 Sep 2008)

Log Message:
-----------
Fix loading non-standard ports from the config file

Modified Paths:
--------------
    trunk/modules/dm_config.pm

Modified: trunk/modules/dm_config.pm
===================================================================
--- trunk/modules/dm_config.pm	2008-06-24 18:34:31 UTC (rev 88)
+++ trunk/modules/dm_config.pm	2008-09-04 08:15:59 UTC (rev 89)
@@ -1866,7 +1866,7 @@
       for my $host (@arr) {
         my ($name,$ip,$vendor,$model,$tests,$cid) = @$host;
 
-        my $port = $1 if $cid =~ s/::(\d+)^//;
+        my $port = $1 if $cid =~ s/::(\d+)$//;
 
         $hosts{$name}{'ip'}     = $ip;
         $hosts{$name}{'vendor'} = $vendor;
@@ -1919,7 +1919,7 @@
         do_log("Invalid entry in host file at line $num.",0) and next
           if !defined $cid;
 
-        my $port = $1 if $cid =~ s/::(\d+)^//;
+        my $port = $1 if $cid =~ s/::(\d+)$//;
 
         $hosts{$name}{'ip'}     = $ip;
         $hosts{$name}{'vendor'} = $vendor;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.