From 85b20ffaeaf8ce5ace75970be13d86349666878e Mon Sep 17 00:00:00 2001
From: Andrew Johnson <anj@aps.anl.gov>
Date: Tue, 8 Apr 2008 17:49:33 +0000
Subject: [PATCH] Fix envPaths output for cexp users.

---
 src/tools/convertRelease.pl@ | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/tools/convertRelease.pl@ b/src/tools/convertRelease.pl@
index 09fd8fa02..4d672c8f6 100755
--- a/src/tools/convertRelease.pl@
+++ b/src/tools/convertRelease.pl@
@@ -146,13 +146,13 @@ sub envPaths {
     my $ioc = $cwd;
     $ioc =~ s/^.*\///;	# iocname is last component of directory name
     
-    print OUT "epicsEnvSet(ARCH,\"$arch\")\n";
-    print OUT "epicsEnvSet(IOC,\"$ioc\")\n";
+    print OUT "epicsEnvSet(\"ARCH\",\"$arch\")\n";
+    print OUT "epicsEnvSet(\"IOC\",\"$ioc\")\n";
     
     foreach my $app (@includes) {
 	my $iocpath = my $path = $macros{$app};
 	$iocpath =~ s/^$root/$iocroot/o if ($opt_t);
-	print OUT "epicsEnvSet($app,\"$iocpath\")\n" if (-d $path);
+	print OUT "epicsEnvSet(\"$app\",\"$iocpath\")\n" if (-d $path);
     }
     close OUT;
 }