mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-30 02:33:03 -07:00
Code Issues Projects Releases Wiki Activity

Adapt to perl 5

Browse source 
Copied from Perforce
 Change: 18495
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Richard Tucker 1997-07-25 09:08:02 +01:00
parent 7b2ca5daf3
commit 3a6774df08
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
mps/qa/test/script/headread
View file

@ -76,10 +76,10 @@ sub readvals {
%keyvalues = ();
%keyrelations = ();
s/([^\/]);/\1;;/g;
s/([^\/]);/$1;;/g;
foreach (split(/\s*;;\s*/)) {
s/\\(\\|;)/\1/g;
s/\\(\\|;)/$1/g;
if (m/^\W*(\w+)\s*($relations)\s*(.+)\s*/) {
$keyvalues{$1} = $3;