]> git.decadent.org.uk Git - maypole.git/blobdiff - t/cgi_maypole.t
Change author acknowledge to explicit copyright statement.
[maypole.git] / t / cgi_maypole.t
index d8a5ccf7b0a219c1d222f7f63f8178f7a774fac0..e1798667303f12b20eabf887b729664b13317547 100644 (file)
@@ -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()
@@ -86,7 +87,7 @@ is_deeply($r->params, $r->query, '... query and params are identical');
 can_ok($r => 'send_output');
 SKIP: {
     eval "require IO::CaptureOutput";
-    skip "IO::CaptureOutput not installed", 3 if $@;
+    skip "IO::CaptureOutput not installed", 2 if $@;
     $r->content_type('text/plain');
     $r->document_encoding('iso8859-1');
     $r->output('Hello World!');