28 lines
887 B
Diff
28 lines
887 B
Diff
|
From 0bcf85f024efcb8067bad99c7e9b7dee64ff7edf Mon Sep 17 00:00:00 2001
|
||
|
|
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
|
||
|
|
Date: Mon, 20 Aug 2012 11:32:32 +0200
|
||
|
|
Subject: [PATCH] Append semicolon to setenv
|
||
|
|
|
||
|
|
This allows to "eval `perl -Mlocal::lib`" in CSH.
|
||
|
|
<https://rt.cpan.org/Public/Bug/Display.html?id=60072>
|
||
|
|
---
|
||
|
|
lib/local/lib.pm | 2 +-
|
||
|
|
1 file changed, 1 insertion(+), 1 deletion(-)
|
||
|
|
|
||
|
|
diff --git a/lib/local/lib.pm b/lib/local/lib.pm
|
||
|
|
index 87d1869..cef5ebf 100644
|
||
|
|
--- a/lib/local/lib.pm
|
||
|
|
+++ b/lib/local/lib.pm
|
||
|
|
@@ -333,7 +333,7 @@ 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};
|
||
|
|
+ return defined($value) ? qq{setenv ${name} "${value}";\n} : qq{unsetenv ${name};\n};
|
||
|
|
}
|
||
|
|
|
||
|
|
sub build_win32_env_declaration {
|
||
|
|
--
|
||
|
|
1.7.11.4
|
||
|
|
|