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) {
|
