Re: [PATCH] VCP::Logger and STDOUT.

On Wed, Sep 08, 2004 at 10:38:43AM -0400, Barrie Slaymaker wrote:
> I'm hesitant to require only the very latest Perl, so I'm not sure what
> to do.  Ideas?

This turns out to be wrong.  However just using a ref instead of raw
glob to hold the handle makes pperl happy

--- lib/VCP/Logger.pm  (revision 1069)
+++ lib/VCP/Logger.pm  (local)
@@ -344,9 +344,9 @@ BEGIN {
    ## Flush the LOG every print() so that we never miss data and
    ## so that we can pass the log to child processes to emit STDOUT
    ## and STDERR to.
-   *OLDFH = select LOG;
+   my $old = select LOG;
    $| = 1;
-   select OLDFH;
+   select $old;
 
    ## Print a header line guaranteed to start at the beginning of a
    ## line.


Cheers,
CLK

pgpzyUXovNqK3.pgp
Description: PGP signature