> From: "Richie"
> > Just tried 5.12 portable. Had to use the following pieces, but it
> worked
> > push @search_paths, 'C:/msys/1.0/local', 'C:/msys/1.0/local/ssl' ,
> > 'C:/msys/1.0/mingw' (Makefile.PL)
> > set PATH=C:\msys\1.0\mingw\bin;%PATH% (strawberry shell)
> >
> > Perhaps the extra search_paths element was needed due to additional
> > differences in our msys installs
What's in C:/msys/1.0/mingw ? (My msys/1.0/mingw is empty.)
I need to specify 'C:/msys/1.0/local' and 'C:/msys/1.0/local/ssl' as that's
where openssl and zlib are for me.
However, some (most ?) people put their libraries into /mingw by making use of
the --prefix argument. That way msys finds them by default.
I guess therefore that, on your machine, there are some libraries in /mingw
that are needed to build Net::SSH2 - whereas, on my machine, all of those
libraries are in /usr/local. That should be the only difference.
Good that Strawberry are finally including Net::SSH2 in their distro.
While I think of it - I've found it necessary to apply this patch to SSH2.pm
(version 0.33):
#########################
--- C:\perl5121_M/site/lib/Net/SSH2.pm_orig Mon Aug 23 20:06:32 2010
+++ C:\perl5121_M/site/lib/Net/SSH2.pm Mon Aug 23 20:36:30 2010
@@ -373,8 +373,18 @@
$self->error(0, "want $block, have $count"), return
unless $count == $block;
die 'sysread mismatch' unless length $buf == $count;
- $self->error(0, "error writing $count bytes to channel"), return
- unless $chan->write($buf) == $count;
+ my $wrote = 0;
+ while ($wrote >= 0 && $wrote < $count) {
+ my $wr = $chan->write($buf);
+ last if $wr < 0;
+ $wrote += $wr;
+ $buf = substr $buf, $wr;
+ }
+ unless($wrote == $count) {
+ my @error = $self->error();
+ warn "Error writing $count bytes to channel: @error\n";
+ return;
+ }
}
# send/receive SCP acknowledgement
#########################
See
https://rt.cpan.org/Public/Bug/Display.html?id=59332
for the discussion about it. (If you're not going to use scp it probably
doesn't matter.)
Cheers,
Rob
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
