X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=t%2Fcgi_maypole.t;h=e1798667303f12b20eabf887b729664b13317547;hb=5ca6a1765a44c39b23e7bab0e2ba636dbc6b57a8;hp=977201a638d2137b9f5bd2cdfd6bd9cb706b07f8;hpb=b1d78352f8dc3f27b8ddda28d638ba3e80d2abf5;p=maypole.git

diff --git a/t/cgi_maypole.t b/t/cgi_maypole.t
index 977201a..e179866 100644
--- a/t/cgi_maypole.t
+++ b/t/cgi_maypole.t
@@ -14,7 +14,8 @@ my $mock_maypole = new Test::MockModule('CGI::Maypole');
 my $mock_cgi = new Test::MockModule('CGI::Simple');
 $mock_cgi->mock(path_info => sub {
     delete $_[0]->{'.path_info'};
-    goto $mock_cgi->original('path_info')
+    my $orig_path_info = $mock_cgi->original('path_info');
+    goto $orig_path_info;
 });
 
 # run()