remove unused sub
authorGabor Szabo <gabor@szabgab.com>
Tue, 29 Nov 2011 15:50:37 +0000 (17:50 +0200)
committerGabor Szabo <gabor@szabgab.com>
Tue, 29 Nov 2011 15:50:37 +0000 (17:50 +0200)
t/test.pm

index e588df5..9964808 100644 (file)
--- a/t/test.pm
+++ b/t/test.pm
@@ -295,14 +295,6 @@ sub restore_output {
   return $string;
 }
 
-sub _test_save_restore_output {
-  warn "to stderr 1\n";
-  save_output("stderr", *STDERR{IO});
-  warn "Hello, Mum!";
-  print 'SAVED:->:', restore_output("stderr"), ":<-\n";
-  warn "to stderr 2\n";
-}
-
 # -------------------------------------
 
 =head2 tmpnam