commit 659dfb84142755e006e4b5c423d71679c751a6b0
Author: Petr Písař <ppi...@redhat.com>
Date:   Thu Nov 21 13:38:40 2013 +0100

    Fix setting undefined variable in CSH

 ...010-Fix-setting-undefined-variable-in-CSH.patch |   48 ++++++++++++++++++++
 perl-homedir.csh                                   |    4 +-
 perl-local-lib.spec                                |    9 +++-
 3 files changed, 58 insertions(+), 3 deletions(-)
---
diff --git a/local-lib-1.008010-Fix-setting-undefined-variable-in-CSH.patch 
b/local-lib-1.008010-Fix-setting-undefined-variable-in-CSH.patch
new file mode 100644
index 0000000..9005842
--- /dev/null
+++ b/local-lib-1.008010-Fix-setting-undefined-variable-in-CSH.patch
@@ -0,0 +1,48 @@
+From 53297b1441539efdc44fc9c8f4f19fb6ba8290c9 Mon Sep 17 00:00:00 2001
+From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppi...@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ř <ppi...@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
+
diff --git a/perl-homedir.csh b/perl-homedir.csh
index ef7ad3b..b00fb0d 100644
--- a/perl-homedir.csh
+++ b/perl-homedir.csh
@@ -11,10 +11,10 @@ if (-f "$HOME/.perl-homedir") then
        source "$HOME/.perl-homedir"
 endif
 
-alias perlll 'eval `perl -Mlocal::lib`'
+alias perlll 'eval "`perl -Mlocal::lib`"'
 
 # if system default
 if ("x$PERL_HOMEDIR" == "x1") then
-       eval `perl -Mlocal::lib`
+       eval "`perl -Mlocal::lib`"
 endif
 
diff --git a/perl-local-lib.spec b/perl-local-lib.spec
index b74b6f3..6ee542d 100644
--- a/perl-local-lib.spec
+++ b/perl-local-lib.spec
@@ -1,6 +1,6 @@
 Name:       perl-local-lib
 Version:    1.008010
-Release:    3%{?dist}
+Release:    4%{?dist}
 # lib/local/lib.pm -> GPL+ or Artistic
 License:    GPL+ or Artistic
 Group:      Development/Libraries
@@ -8,6 +8,9 @@ Summary:    Create and use a local lib/ for perl modules
 Source:     
http://search.cpan.org/CPAN/authors/id/E/ET/ETHER/local-lib-%{version}.tar.gz
 # Allow evaluation in CSH, RHBZ #849609, CPAN RT #60072
 Patch0:     local-lib-1.008009-Append-semicolon-to-setenv.patch
+# Fix setting variables in CSH, RHBZ# 1033018, CPAN RT #85667,
+# upstream is going the refactor the whole code, patch not sent to upstream
+Patch1:     local-lib-1.008010-Fix-setting-undefined-variable-in-CSH.patch
 Url:        http://search.cpan.org/dist/local-lib
 Requires:   perl(:MODULE_COMPAT_%(eval "`perl -V:version`"; echo $version))
 BuildArch:  noarch
@@ -65,6 +68,7 @@ install this package.
 %prep
 %setup -q -n local-lib-%{version}
 %patch0 -p1
+%patch1 -p1
 rm -rf inc
 
 %build
@@ -91,6 +95,9 @@ make test
 %{_sysconfdir}/profile.d/*
 
 %changelog
+* Thu Nov 21 2013 Petr Pisar <ppi...@redhat.com> - 1.008010-4
+- Fix setting undefined variable in CSH (bug #1033018)
+
 * Sun Aug 04 2013 Fedora Release Engineering <rel-...@lists.fedoraproject.org> 
- 1.008010-3
 - Rebuilt for https://fedoraproject.org/wiki/Fedora_20_Mass_Rebuild
 
--
Fedora Extras Perl SIG
http://www.fedoraproject.org/wiki/Extras/SIGs/Perl
perl-devel mailing list
perl-devel@lists.fedoraproject.org
https://admin.fedoraproject.org/mailman/listinfo/perl-devel

Reply via email to