[pve-devel] r5101 - pve-common/trunk

[svn-commits at proxmox.com]

Author: dietmar
Date: 2010-09-08 11:08:49 +0000 (Wed, 08 Sep 2010)
New Revision: 5101

Modified:
   pve-common/trunk/JSONSchema.pm
Log:


Modified: pve-common/trunk/JSONSchema.pm
===================================================================
--- pve-common/trunk/JSONSchema.pm	2010-09-08 11:04:24 UTC (rev 5100)
+++ pve-common/trunk/JSONSchema.pm	2010-09-08 11:08:49 UTC (rev 5101)
@@ -29,7 +29,7 @@
 sub check_format {
     my ($format, $value) = @_;
 
-    return $value if $format eq 'regex';
+    return if $format eq 'regex';
 
     if ($format =~ m/^(.*)-list$/) {
 	
@@ -37,20 +37,17 @@
 
 	die "undefined format '$format'\n" if !$code;
 
-	my @ra = ();
 	foreach my $v (split_list($value)) {
-	    push @ra, &$code($v);
+	    &$code($v);
 	}
 
-	return join(',', @ra);
-
     } else {
 
 	my $code = $format_list->{$format};
 
 	die "undefined format '$format'\n" if !$code;
 
-	return &$code($value);
+	&$code($value);
     }
 }