From 2f17d1103d5af52bf46ac80d9c5b041d9f15022a Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Wed, 21 Jun 2006 16:24:55 +0000 Subject: [PATCH] _run_test() can now cope with complex text-class names such as Search::Title --- lib/ZOOM/IRSpy.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lib/ZOOM/IRSpy.pm b/lib/ZOOM/IRSpy.pm index da496e0..0fb95f7 100644 --- a/lib/ZOOM/IRSpy.pm +++ b/lib/ZOOM/IRSpy.pm @@ -1,4 +1,4 @@ -# $Id: IRSpy.pm,v 1.5 2006-06-21 16:09:02 mike Exp $ +# $Id: IRSpy.pm,v 1.6 2006-06-21 16:24:55 mike Exp $ package ZOOM::IRSpy; @@ -189,7 +189,9 @@ sub _run_test { my($tname) = @_; eval { - require "ZOOM/IRSpy/Test/$tname.pm"; + my $slashSeperatedTname = $tname; + $slashSeperatedTname =~ s/::/\//g; + require "ZOOM/IRSpy/Test/$slashSeperatedTname.pm"; }; if ($@) { $this->log("warn", "can't load test '$tname': skipping", $@ =~ /^Can.t locate/ ? () : " ($@)"); -- 1.7.10.4