X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FTestCGIBin%2FController%2FCGIHandler.pm;h=0e18ee690c828c8b42d878812ec2926f1f777b21;hb=9cc2dd4cf91d00221ca404219404c1b9bfbf8a80;hp=12c4592f0019ff7c8e5d302e66452c75fcd881ad;hpb=c264816e2877d684b9eed88e29868b6efea3c92c;p=catagits%2FCatalyst-Controller-WrapCGI.git

diff --git a/t/lib/TestCGIBin/Controller/CGIHandler.pm b/t/lib/TestCGIBin/Controller/CGIHandler.pm
index 12c4592..0e18ee6 100644
--- a/t/lib/TestCGIBin/Controller/CGIHandler.pm
+++ b/t/lib/TestCGIBin/Controller/CGIHandler.pm
@@ -2,6 +2,11 @@ package TestCGIBin::Controller::CGIHandler;
 
 use parent 'Catalyst::Controller::CGIBin';
 
+sub cgi_path {
+    my ($self, $cgi) = @_;
+    return "my-bin/$cgi";
+}
+
 # try out a forward
 sub dongs : Local Args(0) {
     my ($self, $c) = @_;