X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=lib%2FZOOM%2FIRSpy.pm;h=66883931186a71dcd680d111bc704fd5dbee48fc;hp=103889ba584d6a5220a61d561d5dd7451662e926;hb=2476b32c2fb9f206db264d6c0f514e28a71cd642;hpb=a8be7db5305925fc720f3dac7e6afc8fba7b9e60 diff --git a/lib/ZOOM/IRSpy.pm b/lib/ZOOM/IRSpy.pm index 103889b..6688393 100644 --- a/lib/ZOOM/IRSpy.pm +++ b/lib/ZOOM/IRSpy.pm @@ -1,4 +1,4 @@ -# $Id: IRSpy.pm,v 1.22 2006-10-06 11:33:07 mike Exp $ +# $Id: IRSpy.pm,v 1.23 2006-10-06 16:52:50 mike Exp $ package ZOOM::IRSpy; @@ -414,13 +414,13 @@ sub _gather_tests { } $this->log("irspy", "adding test '$tname'"); - my @subtests; + my @subnodes; foreach my $subtname ("ZOOM::IRSpy::Test::$tname"->subtests($this)) { my $subtest = $this->_gather_tests($subtname, @ancestors, $tname); - push @subtests, $subtest if defined $subtest; + push @subnodes, $subtest if defined $subtest; } - return new ZOOM::IRSpy::Node($tname, @subtests); + return new ZOOM::IRSpy::Node($tname, @subnodes); }