Update README, use print instead of say

duckduckgo · Aug 1, 2012 · 5dd8630 · 5dd8630
1 parent 0630a1e
commit 5dd8630
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 6 deletions.
diff --git a/perl6_doc/README.md b/perl6_doc/README.md
@@ -3,8 +3,9 @@ Perl 6 documentation fetcher and parser for DuckDuckGo
 # Dependencies
 
 * wget
-* Perl v5.6
+* Perl v5.10
 * CPAN modules:
   * `strictures`
+  * `HTML::Entities`
   * `HTML::Parser`
   * `URI::Escape`
diff --git a/perl6_doc/parse.pl b/perl6_doc/parse.pl
@@ -1,4 +1,4 @@
-use 5.006;
+use 5.010;
 use strictures 1;
 use autodie;
 use Encode;
@@ -17,7 +17,7 @@ (_)
 }
 
 sub duck_line {
-    join( "\t", @_ ) . "\n";
+    join "\t", @_;
 }
 
 my %functions;
@@ -99,7 +99,7 @@ sub duck_line {
             . duck_escape( $definition{prototype} )
             . '</pre></code>'
             : q[];
-        print duck_line(
+        say duck_line(
             "$definition{class}.$function",
             'A',
             q[],
@@ -119,11 +119,11 @@ sub duck_line {
     }
     if ( @definitions == 1 ) {
         my %definition = %{ $definitions[0] };
-        print duck_line( $function, 'R', "$definition{class}.$function",
+        say duck_line( $function, 'R', "$definition{class}.$function",
             q[], q[], q[], q[], q[], q[], q[], q[], q[], );
     }
     else {
-        print duck_line( $function, 'D', q[], q[], q[], q[], q[], q[], q[],
+        say duck_line( $function, 'D', q[], q[], q[], q[], q[], q[], q[],
             join( '\n', map {"[[$_->{class}.$function]]"} @definitions ),
             q[], q[], q[], );
     }