fix manual so search.cpan.org indexes it properly (it uses the NAME section for cross...

[maypole.git] / t / cgi_maypole.t

diff --git a/t/cgi_maypole.t b/t/cgi_maypole.t
index 977201a638d2137b9f5bd2cdfd6bd9cb706b07f8..e1798667303f12b20eabf887b729664b13317547 100644 (file)
--- 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()