IOish fixes for cookbook

Raku · Aug 5, 2017 · ffb8930 · ffb8930
1 parent 0912154
commit ffb8930
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/categories/cookbook/09directories/09-07-all-files-process.pl b/categories/cookbook/09directories/09-07-all-files-process.pl
@@ -17,7 +17,7 @@ (:$dir = ".")
     my $files = find(:dir($dir), :type('file'));
 
     for $files.map({.IO}).sort -> $io {
-        say $io.abspath;
+        say $io.absolute;
     }
 }
 

diff --git a/categories/cookbook/09directories/09-10-filename-splitting.pl b/categories/cookbook/09directories/09-10-filename-splitting.pl
@@ -11,7 +11,7 @@
 =end pod
 
 sub MAIN(:$file = "/usr/lib64/libc.so") {
-    my $io = IO::Path.new-from-absolute-path($file);
+    my $io = $file.IO;
 
     say "basename: ",  $io.basename;
     say "dirname: ",   $io.dirname;

diff --git a/categories/cookbook/17sockets/17-01tcp_client.pl b/categories/cookbook/17sockets/17-01tcp_client.pl
@@ -11,7 +11,7 @@
 =end pod
 
 my $s = IO::Socket::INET.new( :host<www.perl6.org>, :port(80) );
-$s.print( "HEAD / HTTP/1.0\n\n" );
+$s.print( "HEAD / HTTP/1.0\r\n\r\n" );
 
 while my $r = $s.get {
     say $r;