| Subject: | support for "say" from 5.10 |
It will be compatible with 5.8.
P.S. I see no license in distribution.
--
Alexandr Ciornii, http://chorny.net
| Subject: | Core.pm.patch |
--- Core.pm.dist Thu Jan 6 07:12:31 2005
+++ Core.pm Fri Oct 26 19:47:57 2007
@@ -7,7 +7,7 @@
# okey, $arrayref->5 is invalid syntax. you'd have to say $five = 5; $arrayref->$five.
# hrm.
-use 5.8.0;
+use 5.008;
use strict;
use warnings;
@@ -507,6 +507,7 @@
# doesn't minipulate scalars but works on scalars
sub print ($;@) { CORE::print @_; }
+sub say ($;@) { CORE::print (@_,"\n"); }
# operators that work on scalars:
@@ -624,6 +625,7 @@
}
sub print (\@) { my $arr = CORE::shift; my @arr = @$arr; CORE::print "@arr"; }
+sub say (\@) { my $arr = CORE::shift; my @arr = @$arr; CORE::print "@arr\n"; }
# local