From af07e0fd51e07f198abc306d57a0b7b6607453db Mon Sep 17 00:00:00 2001
From: Andrew Johnson <anj@aps.anl.gov>
Date: Mon, 25 Apr 2016 12:24:05 -0500
Subject: [PATCH] Fix oops in last commit

---
 src/ca/client/perl/perlConfig.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/ca/client/perl/perlConfig.pl b/src/ca/client/perl/perlConfig.pl
index 21d444049..5292041d1 100644
--- a/src/ca/client/perl/perlConfig.pl
+++ b/src/ca/client/perl/perlConfig.pl
@@ -6,7 +6,8 @@
 use strict;
 use Config;
 
-my $val = $Config{shift};
+my $arg = shift;
+my $val = $Config{$arg};
 
 $val =~ s{\\}{/}go
     if $^O eq 'MSWin32';