[PATCH] VCP::Logger and STDOUT.

Chia-liang Kao <[email protected]> Tue, 7 Sep 2004 19:04:43 +0100
Newsgroups gmane.comp.version-control.revml
Message-ID <[email protected]>
--mYCpIKhGyMATD0i+
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline
Content-Transfer-Encoding: quoted-printable

This breaks svk tests when delay loading VCP, as the the default
output is selected to a scalar.

----------------------------------------------------------------------
r1050:  clkao | 2004-09-07T18:01:46.084672Z

Don't assume STDOUT was the old FH.
----------------------------------------------------------------------
--- local/lib/VCP/Logger.pm  (revision 1049)
+++ local/lib/VCP/Logger.pm  (revision 1050)
@@ -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.
-   select LOG;
+   *OLDFH =3D select LOG;
    $| =3D 1;
-   select STDOUT;
+   select OLDFH;
=20
    ## Print a header line guaranteed to start at the beginning of a
    ## line.

Cheers,
CLK

--mYCpIKhGyMATD0i+
Content-Type: application/pgp-signature
Content-Disposition: inline

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

iD8DBQFBPfg7k1XldlEkA5YRAjLgAJ9o4QYM9NNnvf1FZeH/FHos+Znc3ACeKenH
IZoGmVfv6gaBB+q9ndF+1no=
=JU1G
-----END PGP SIGNATURE-----

--mYCpIKhGyMATD0i+--