remove unpack
authorDobrica Pavlinusic <dpavlin@rot13.org>
Wed, 26 May 2010 18:58:09 +0000 (20:58 +0200)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Wed, 26 May 2010 18:58:26 +0000 (20:58 +0200)
It's not strict enough to be really useful

lib/MojoFacets/Data.pm

index e69c16e..0ac4746 100644 (file)
@@ -96,10 +96,7 @@ sub _load_path {
                        }
                        my $item;
                        foreach my $i ( 0 .. $#v ) {
-                               my $v = $v[$i];
-                               # unpack numeric values separated by commas
-                               my $a = $v =~ m/\d+\s*,\s*\d+/ ? [ split(/\,\s*/,$v) ] : [ $v ];
-                               $item->{ $header[$i] || "f_$i" } = $a;
+                               $item->{ $header[$i] || "f_$i" } = [ $v[$i] ];
                        }
                        push @{ $data->{items} }, $item;
                }