[freenet-cvs] r12507 - trunk/apps/perlFreenet

[alexlehm at freenetproject.org]

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",
 	{