From 3a6774df089d65d7a459fd166d2d3e1ec69cc81b Mon Sep 17 00:00:00 2001
From: Richard Tucker <rit@harlequin.com>
Date: Fri, 25 Jul 1997 09:08:02 +0100
Subject: [PATCH] Adapt to perl 5

Copied from Perforce
 Change: 18495
 ServerID: perforce.ravenbrook.com
---
 mps/qa/test/script/headread | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/mps/qa/test/script/headread b/mps/qa/test/script/headread
index 85864560dff..5a68cda6f25 100644
--- a/mps/qa/test/script/headread
+++ b/mps/qa/test/script/headread
@@ -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;