Re: [wxperl-users] Creating a BMP from scalar...

[Mattia B. <mat...@li...>]

On Tue, 19 Sep 2006 21:04:57 -0700
"Bradley K. Embree" <bk...@bk...> wrote:

<snip>

> I've since tried this on an Ubuntu box which also failed. I've attached 
> the output of perl -V from both my Windows 2000 PC and my Ubuntu PC.
> 
> On the Ubuntu PC I had:
> 
> Alien::wxWidgets 0.21
> wxPerl 0.57
> wxWidgets 2.6.3
> 
> and still no luck. Not sure if that helps or not. :)

  More data always helps :-) I found the bug. The quick fix is below,
the full fix (rewriting cpp/stream.cpp/h) should be in wxPerl 0.58.

Regards
Mattia

Index: cpp/streams.cpp
===================================================================
RCS file: /cvsroot/wxperl/wxPerl/cpp/streams.cpp,v
retrieving revision 1.14
diff -u -2 -r1.14 streams.cpp
--- cpp/streams.cpp     27 Aug 2006 15:26:18 -0000      1.14
+++ cpp/streams.cpp     22 Sep 2006 20:10:27 -0000
@@ -18,8 +18,8 @@

 // thread KO
-const char sub_read[] = "sub { sysread $_[0], $_[1], $_[2] }";
-const char sub_seek[] = "sub { sysseek $_[0], $_[1], $_[2] }";
-const char sub_tell[] = "sub { sysseek $_[0], 0, 1 }";
-const char sub_write[] = "sub { syswrite $_[0], $_[1] }";
+const char sub_read[] = "sub { read $_[0], $_[1], $_[2] }";
+const char sub_seek[] = "sub { seek $_[0], $_[1], $_[2] }";
+const char sub_tell[] = "sub { seek $_[0], 0, 1 }";
+const char sub_write[] = "sub { print { $_[0] } $_[1] }";
 const char sub_length[] = "sub { ( stat $_[0] )[7] }";