From 54bede2f7d7f2c248f9f8ec8a0459ae7fbc69d9f Mon Sep 17 00:00:00 2001
From: Gabriel Corona <gabriel.corona@enst-bretagne.fr>
Date: Thu, 23 Jul 2015 23:04:13 +0200
Subject: [PATCH] Recursive call filter: allow floating point values and better
 regex handling

---
 stackcollapse-recursive.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/stackcollapse-recursive.pl b/stackcollapse-recursive.pl
index 7aad41d8..9eae5459 100755
--- a/stackcollapse-recursive.pl
+++ b/stackcollapse-recursive.pl
@@ -37,9 +37,9 @@
 
 while(<>) {
   chomp;
-  if(/^(.*)\s([0-9]*)/) {
-    my @stack  = split(/;/, $1);
-    my $value  = $2;
+  my ($stack_, $value) = (/^(.*)\s+?(\d+(?:\.\d*)?)$/);
+  if ($stack_) {
+    my @stack  = split(/;/, $stack_);
 
     my @result = ();
     my $i;