[comp.lang.perl] $0 save

merlyn@iwarp.intel.com (Randal Schwartz) (03/11/90)

In article <1990Mar10.210646.16041@NCoast.ORG>, allbery@NCoast (Brandon S. Allbery) writes:
| 2) not saving $0, ..., $9 across regexps, or $0 at the start of a program

$0 save is *no longer* necessary as of PL12.  One of the better
"breaks existing code" changes.

%X=split(/(\d)/,'another2Perl4hacker,8Just1');sub X {$X{$a}<$X{$b}?-1:1;} print join(" ",sort X keys X);
-- 
/=Randal L. Schwartz, Stonehenge Consulting Services (503)777-0095 ==========\
| on contract to Intel's iWarp project, Beaverton, Oregon, USA, Sol III      |
| merlyn@iwarp.intel.com ...!any-MX-mailer-like-uunet!iwarp.intel.com!merlyn |
\=Cute Quote: "Welcome to Portland, Oregon, home of the California Raisins!"=/