diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-10-22 13:15:39 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-10-22 13:15:39 +0000 |
| commit | 79077e6c14f0cd677dcb64896680dbda123b70a3 (patch) | |
| tree | 213c691e602b5fc11f401b88faf3eca2b5b0448d /lib/bytes_heavy.pl | |
| parent | ac5a684e91b96c66e134bedef4a18360ad57a796 (diff) | |
| download | perl-79077e6c14f0cd677dcb64896680dbda123b70a3.tar.gz | |
Make the overrides of built-ins in the bytes pragma use the new prototype _.
p4raw-id: //depot/perl@29078
Diffstat (limited to 'lib/bytes_heavy.pl')
| -rw-r--r-- | lib/bytes_heavy.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/bytes_heavy.pl b/lib/bytes_heavy.pl index 923381de58..680c66ce92 100644 --- a/lib/bytes_heavy.pl +++ b/lib/bytes_heavy.pl @@ -1,6 +1,6 @@ package bytes; -sub length ($) { +sub length (_) { BEGIN { bytes::import() } return CORE::length($_[0]); } @@ -13,12 +13,12 @@ sub substr ($$;$$) { CORE::substr($_[0], $_[1], $_[2], $_[3]) ; } -sub ord ($) { +sub ord (_) { BEGIN { bytes::import() } return CORE::ord($_[0]); } -sub chr ($) { +sub chr (_) { BEGIN { bytes::import() } return CORE::chr($_[0]); } |