49 lines
1.5 KiB
Diff
49 lines
1.5 KiB
Diff
From 53297b1441539efdc44fc9c8f4f19fb6ba8290c9 Mon Sep 17 00:00:00 2001
|
|
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
|
|
Date: Thu, 21 Nov 2013 12:03:32 +0100
|
|
Subject: [PATCH] Fix setting undefined variable in CSH
|
|
MIME-Version: 1.0
|
|
Content-Type: text/plain; charset=UTF-8
|
|
Content-Transfer-Encoding: 8bit
|
|
|
|
<https://rt.cpan.org/Public/Bug/Display.html?id=85667>
|
|
|
|
Signed-off-by: Petr Písař <ppisar@redhat.com>
|
|
---
|
|
lib/local/lib.pm | 19 ++++++++++++++++++-
|
|
1 file changed, 18 insertions(+), 1 deletion(-)
|
|
|
|
diff --git a/lib/local/lib.pm b/lib/local/lib.pm
|
|
index 289e13b..d4f8e2a 100644
|
|
--- a/lib/local/lib.pm
|
|
+++ b/lib/local/lib.pm
|
|
@@ -343,7 +343,24 @@ sub build_bourne_env_declaration {
|
|
sub build_csh_env_declaration {
|
|
my $class = shift;
|
|
my($name, $value) = @_;
|
|
- return defined($value) ? qq{setenv ${name} "${value}";\n} : qq{unsetenv ${name};\n};
|
|
+ if (defined($value)) {
|
|
+ if ($value =~ /(.*)(\A|\Q$Config{path_sep}\E)(\$)(.+?)(\z|\Q$Config{path_sep}\E)(.*)/) {
|
|
+ # If a variable reference exists in the value, we have to delimit it and
|
|
+ # dereference it only if it is defined.
|
|
+ return
|
|
+ qq{test 1 == \$\{?$4\} && } .
|
|
+ qq{setenv ${name} "${1}${2}${3}\{${4}\}${5}${6}"} .
|
|
+ qq{ || } .
|
|
+ qq{setenv ${name} "${1}} .
|
|
+ (($2 ne '' and $5 ne '') ? qq{${2}} : '') .
|
|
+ qq{${6}"} .
|
|
+ qq{;\n};
|
|
+ } else {
|
|
+ return qq{setenv ${name} "${value}";\n};
|
|
+ }
|
|
+ } else {
|
|
+ return qq{unsetenv ${name};\n};
|
|
+ }
|
|
}
|
|
|
|
sub build_win32_env_declaration {
|
|
--
|
|
1.8.3.1
|
|
|