Author: alexlehm
Date: 2007-04-01 01:57:09 +0000 (Sun, 01 Apr 2007)
New Revision: 12507
Modified:
trunk/apps/perlFreenet/perlfn.pl
trunk/apps/perlFreenet/putcomplexdir.pl
Log:
wrong handling of binmode in read_file
Modified: trunk/apps/perlFreenet/perlfn.pl
===================================================================
--- trunk/apps/perlFreenet/perlfn.pl 2007-04-01 01:24:53 UTC (rev 12506)
+++ trunk/apps/perlFreenet/perlfn.pl 2007-04-01 01:57:09 UTC (rev 12507)
@@ -111,7 +111,7 @@
}
);
-$data=read_file("c:/document.pdf",{binmode => ':raw'});
+$data=read_file("c:/document.pdf", binmode => ':raw');
$msg->{data}=$data;
$msg->{header}->{DataLength}=length($data);
Modified: trunk/apps/perlFreenet/putcomplexdir.pl
===================================================================
--- trunk/apps/perlFreenet/putcomplexdir.pl 2007-04-01 01:24:53 UTC (rev
12506)
+++ trunk/apps/perlFreenet/putcomplexdir.pl 2007-04-01 01:57:09 UTC (rev
12507)
@@ -10,12 +10,12 @@
($nodehello=$node->connect) || warn "connect failed\n";
if($nodehello->message ne "NodeHello") {
- warn "something went wrong, got ".$nodehello->message." instread of
NodeHello\n";
+ warn "something went wrong, got ".$nodehello->message." instead of
NodeHello\n";
}
$file0=read_file("index.html");
-$file1=read_file("foo.zip",{binmode=>':raw'});
-$file2=read_file("doc.pdf",{binmode=>':raw'});
+$file1=read_file("foo.zip", binmode=>':raw');
+$file2=read_file("doc.pdf", binmode=>':raw');
$msg=Freenet::Message->new("ClientPutComplexDir",
{
