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