Typo configpm
H.Merijn Brand [Mon, 4 Nov 2002 10:58:52 +0000 (10:58 +0000)]
Mon, 4 Nov 2002; Rafael Garcia-Suarez <rgarciasuarez@free.fr>

p4raw-id: //depot/perl@18083

configpm

index 7816c8d..08e7099 100755 (executable)
--- a/configpm
+++ b/configpm
@@ -326,7 +326,7 @@ sub config_sh {
 
 sub config_re {
     my $re = shift;
-    return map { chomp; $_ } grep /^$re=/, split /^/, $config_sh;
+    return map { chomp; $_ } grep /^$re=/, split /^/, $Config_SH;
 }
 
 sub config_vars {