From 596561ded7c835eef91f7b5cc1d57f2c0c00395e Mon Sep 17 00:00:00 2001
From: Jean-Marc Zucconi <jmz@FreeBSD.org>
Date: Wed, 22 Sep 1999 19:30:45 +0000
Subject: Bug fix for 3.x: unbreak drivers (e.g. the gif driver) using the
 %VAL(...) F77 feature.

---
 graphics/pgplot/files/xf77 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'graphics')

diff --git a/graphics/pgplot/files/xf77 b/graphics/pgplot/files/xf77
index 554d36ecd08f..6e04a2ebdca7 100644
--- a/graphics/pgplot/files/xf77
+++ b/graphics/pgplot/files/xf77
@@ -38,8 +38,9 @@ sub phase1 {
 sub phase2 {
     while (<>) {
 	if (/(\s*)(\w*)(\s*=\s*)($ctxt)/) {
+	    $p = $2;
 	    s/$ctxt\(&/\(/;
-	    $names[$count] = $2;
+	    $names[$count] = $p;
 	    $count++;
 	    print $_;
 	} else {
-- 
cgit v1.2.3