undef $samples2 error with --reverse

brendangregg · Oct 29, 2014 · fff2ad0 · fff2ad0
1 parent 76f475e
commit fff2ad0
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/flamegraph.pl b/flamegraph.pl
@@ -415,8 +415,10 @@ sub flow {
 		if ($stack =~ /^(.*)\s+?(\d+(?:\.\d*)?)$/) {
 			$samples2 = $samples;
 			($stack, $samples) = $stack =~ (/^(.*)\s+?(\d+(?:\.\d*)?)$/);
+			unshift @Data, join(";", reverse split(";", $stack)) . " $samples $samples2";
+		} else {
+			unshift @Data, join(";", reverse split(";", $stack)) . " $samples";
 		}
-		unshift @Data, join(";", reverse split(";", $stack)) . " $samples $samples2";
 	} else {
 		unshift @Data, $line;
 	}