[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.393,1.394

[Ken W. <kwi...@us...>]

Update of /cvsroot/module-build/Module-Build/lib/Module/Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12609/lib/Module/Build

Modified Files:
	Base.pm 
Log Message:
Remove the unused stdout_to_file() method

Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.393
retrieving revision 1.394
diff -u -d -r1.393 -r1.394
--- Base.pm	20 Feb 2005 10:56:14 -0000	1.393
+++ Base.pm	23 Feb 2005 04:06:43 -0000	1.394
@@ -2707,22 +2707,6 @@
   return Text::ParseWords::shellwords($string);
 }
 
-sub stdout_to_file {
-  my ($self, $coderef, $redirect) = @_;
-  local *SAVE;
-  if ($redirect) {
-    open SAVE, ">&STDOUT" or die "Can't save STDOUT handle: $!";
-    open STDOUT, "> $redirect" or die "Can't create '$redirect': $!";
-  }
-
-  $coderef->();
-
-  if ($redirect) {
-    close STDOUT;
-    open STDOUT, ">&SAVE" or die "Can't restore STDOUT: $!";
-  }
-}
-
 sub run_perl_script {
   my ($self, $script, $preargs, $postargs) = @_;
   foreach ($preargs, $postargs) {