[svn:parrot] r41054 - branches/pluggable_runcore/tools/dev

[cotto at svn.parrot.org]

Author: cotto
Date: Sun Sep  6 09:51:27 2009
New Revision: 41054
URL: https://trac.parrot.org/parrot/changeset/41054

Log:
[pprof2cg] be a little more paranoid about input checking
also, stupid formatting trick

Modified:
   branches/pluggable_runcore/tools/dev/pprof2cg.pl

Modified: branches/pluggable_runcore/tools/dev/pprof2cg.pl
==============================================================================
--- branches/pluggable_runcore/tools/dev/pprof2cg.pl	Sun Sep  6 09:44:28 2009	(r41053)
+++ branches/pluggable_runcore/tools/dev/pprof2cg.pl	Sun Sep  6 09:51:27 2009	(r41054)
@@ -172,7 +172,9 @@
 sub split_vars {
     my $href;
     my $str = shift;
-    while ($str =~ /\G {x{ ([^:]+) : (.*?) }x} /cxg) {
+    die "invalidly formed line '$str'"
+        unless $str =~ /({x{  [^:]+  : (.*?) }x})+/x;
+    while ($str =~ /\G   {x{ ([^:]+) : (.*?) }x} /cxg) {
         $href->{$1} = $2;
     }
     return $href;