[Bioperl-guts-l] [16278] bioperl-live/trunk/Bio/Root/Build.pm: [bug 2922]

[Christopher John Fields]

Revision: 16278
Author:   cjfields
Date:     2009-10-26 00:01:01 -0400 (Mon, 26 Oct 2009)

Log Message:
-----------
[bug 2922]
* possible fix for perl 5.6.x
* this will have to go through the next series of alphas for testing)

Modified Paths:
--------------
    bioperl-live/trunk/Bio/Root/Build.pm

Modified: bioperl-live/trunk/Bio/Root/Build.pm
===================================================================
--- bioperl-live/trunk/Bio/Root/Build.pm	2009-10-26 01:35:21 UTC (rev 16277)
+++ bioperl-live/trunk/Bio/Root/Build.pm	2009-10-26 04:01:01 UTC (rev 16278)
@@ -293,13 +293,17 @@
     $self->log_info("\n");
 }
 
+# TODO: STDERR output redirect is causing some installations to fail, commenting
+# out until a fix is in place
+
 # overriden just to hide pointless ugly warnings
 sub check_installed_status {
     my $self = shift;
-    open (my $olderr, ">&", \*STDERR);
+    
+    open (my $olderr, ">&". fileno(STDERR));
     open(STDERR, "/dev/null");
     my $return = $self->SUPER::check_installed_status(@_);
-    open(STDERR, ">&", $olderr);
+    open(STDERR, ">&". fileno($olderr));
     return $return;
 }