diff options
| author | Chip Salzenberg <chip@atlantic.net> | 1997-02-22 04:41:00 +1200 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-02-22 04:41:00 +1200 |
| commit | f02a87dff8d75d4e8d0bada37f4abde41184909e (patch) | |
| tree | a48598976b548c2c2643d7fb889b51b8ee2ac61e /os2 | |
| parent | 7d0742d84411135caaa356cb76d4e5f4fdbeb13a (diff) | |
| download | perl-f02a87dff8d75d4e8d0bada37f4abde41184909e.tar.gz | |
Avoid $` $& $' in libraries
(this is the same change as commit 2724d5068a405436d3f2cd00aeb8f7b460b24fec, but as applied)
Diffstat (limited to 'os2')
| -rw-r--r-- | os2/OS2/REXX/REXX.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/os2/OS2/REXX/REXX.pm b/os2/OS2/REXX/REXX.pm index 78e0cf917d..114e1592c4 100644 --- a/os2/OS2/REXX/REXX.pm +++ b/os2/OS2/REXX/REXX.pm @@ -107,21 +107,21 @@ sub dropall sub TIESCALAR { my ($obj, $name) = @_; - $name =~ s/^[\w!?]+/\U$&\E/; + $name =~ s/^([\w!?]+)/\U$1\E/; return bless \$name, OS2::REXX::_SCALAR; } sub TIEARRAY { my ($obj, $name) = @_; - $name =~ s/^[\w!?]+/\U$&\E/; + $name =~ s/^([\w!?]+)/\U$1\E/; return bless [$name, 0], OS2::REXX::_ARRAY; } sub TIEHASH { my ($obj, $name) = @_; - $name =~ s/^[\w!?]+/\U$&\E/; + $name =~ s/^([\w!?]+)/\U$1\E/; return bless {Stem => $name}, OS2::REXX::_HASH; } |