[Catalyst-dev] A try to patch Catalyst::Engine.pm

[Chae Lee]

hi,

in version 5.7014, I changed a few lines of Engine.pm as below. Engine_1.pm
is the original and Engine.pm is the modified.

I did because of the warning "wide char..." when using test http server(in
Catalyst dist); some are in byte string and others are in character string
for output in my website.

by the way, where is the checkout info(svn checkout)?



--- ./Engine_1.pm    2008-04-06 11:29:11.000000000 -0400
+++ ./Engine.pm    2008-07-28 13:34:22.000000000 -0400
@@ -622,8 +622,12 @@
         $self->{_prepared_write} =3D 1;
     }

-    my $len   =3D length($buffer);
-    my $wrote =3D syswrite STDOUT, $buffer;
+   my ( $len, $wrote );
+   {
+       use bytes;
+       $len   =3D length($buffer);
+       $wrote =3D syswrite STDOUT, $buffer;
+   }

     if ( !defined $wrote && $! =3D=3D EWOULDBLOCK ) {
         # Unable to write on the first try, will retry in the loop below
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.scsys.co.uk/pipermail/catalyst-dev/attachments/20080728/7=
9984046/attachment.htm