fixed typos in sample code in sort.pm documentation
authorMartin Becker <mhasch@cpan.org>
Fri, 30 Nov 2012 17:07:43 +0000 (18:07 +0100)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 1 Dec 2012 02:02:36 +0000 (18:02 -0800)
lib/sort.pm

index 922f82b..246128e 100644 (file)
@@ -180,14 +180,14 @@ So now this code would be written:
   { use sort qw(defaults _quicksort); # force quicksort
     no sort "stable";      # stability not wanted
     my $current;
-    BEGIN { $current = print sort::current; }
+    BEGIN { $current = sort::current; }
     print "$current\n";
     @a = sort @b;
     # Pragmas go out of scope at the end of the block
   }
   { use sort qw(defaults stable);     # force stability
     my $current;
-    BEGIN { $current = print sort::current; }
+    BEGIN { $current = sort::current; }
     print "$current\n";
     @c = sort @d;
   }