[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.340.2.22,1.340.2.23

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

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

Modified Files:
      Tag: release-0_26_branch
	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.340.2.22
retrieving revision 1.340.2.23
diff -u -d -r1.340.2.22 -r1.340.2.23
--- Base.pm	23 Feb 2005 02:44:23 -0000	1.340.2.22
+++ Base.pm	23 Feb 2005 04:05:03 -0000	1.340.2.23
@@ -2590,22 +2590,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) {