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

[Chia-liang Kao]

--gatW/ieO32f1wygP
Content-Type: multipart/mixed; boundary="LZvS9be/3tNcYl/X"
Content-Disposition: inline


--LZvS9be/3tNcYl/X
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline

On Wed, Sep 08, 2004 at 05:59:56AM -0400, Barrie Slaymaker wrote:
> Applied, thanks.

It seems this change makes PPerl unhappy and shows some strange message.
Please use the one instead.

Cheers,
CLK

--LZvS9be/3tNcYl/X
Content-Type: text/plain; charset=us-ascii
Content-Disposition: attachment; filename="vcp-logger.diff"
Content-Transfer-Encoding: quoted-printable

--- lib/VCP/Logger.pm  (revision 1069)
+++ lib/VCP/Logger.pm  (local)
@@ -344,9 +344,11 @@ 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 =3D select LOG;
-   $| =3D 1;
-   select OLDFH;
+   {
+      require SelectSaver;
+      my $saver =3D new SelectSaver (LOG);
+      $| =3D 1;
+   }
=20
    ## Print a header line guaranteed to start at the beginning of a
    ## line.

--LZvS9be/3tNcYl/X--

--gatW/ieO32f1wygP
Content-Type: application/pgp-signature
Content-Disposition: inline

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.4 (FreeBSD)

iD8DBQFBPwbLk1XldlEkA5YRAhmmAJ9Di4yUTtcvTVu/jEBx1wsLVQzE+QCfaFPs
3uhPdjeOadbyX1hZrqesERE=
=IYtZ
-----END PGP SIGNATURE-----

--gatW/ieO32f1wygP--