[Devmon-devel] SF.net SVN: devmon:[241] trunk/modules/dm_tests.pm

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

Revision: 241
          http://devmon.svn.sourceforge.net/devmon/?rev=241&view=rev
Author:   buchanmilne
Date:     2013-01-03 14:44:41 +0000 (Thu, 03 Jan 2013)
Log Message:
-----------
Fix parsing of option=value table options (reported by Wim Nelis)
Use first value for border,pad options, instead of the arry (Wim Nelis)

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

Modified: trunk/modules/dm_tests.pm
===================================================================
--- trunk/modules/dm_tests.pm	2013-01-02 15:55:32 UTC (rev 240)
+++ trunk/modules/dm_tests.pm	2013-01-03 14:44:41 UTC (rev 241)
@@ -1802,6 +1802,7 @@
         if(defined $opts) {
           for my $optval (split /\s*,\s*/, $opts) {
             my ($opt,$val) = ($1,$2) if $optval =~ /(\w+)(?:\((.+)\))?/;
+	    ($opt,$val) = ($1,$2) if $optval =~ /^(\w+)=(\d+)$/;
             $val = 1 if !defined $val;
             push @{$t_opts{$opt}}, $val;
             
@@ -1813,8 +1814,8 @@
           $table = '';
         }
         else {
-          my $border = (defined $t_opts{'border'}) ? $t_opts{'border'} : 1;
-          my $pad    = (defined $t_opts{'pad'}) ? $t_opts{'pad'} : 5;
+          my $border = (defined $t_opts{'border'}) ? $t_opts{'border'}[0] : 1;
+          my $pad    = (defined $t_opts{'pad'}) ? $t_opts{'pad'}[0] : 5;
           $table = "<table border=$border cellpadding=$pad>\n";
         }
 

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