Compare commits
No commits in common. 'c9' and 'i10cs' have entirely different histories.
@ -0,0 +1,54 @@
|
|||||||
|
From a80aecb24bf0fd98090b41c5518c4f5931019465 Mon Sep 17 00:00:00 2001
|
||||||
|
From: Jitka Plesnikova <jplesnik@redhat.com>
|
||||||
|
Date: Wed, 5 May 2021 16:50:50 +0200
|
||||||
|
Subject: [PATCH] Upgrade to 1.05
|
||||||
|
|
||||||
|
---
|
||||||
|
lib/Env.pm | 13 +++++++------
|
||||||
|
1 file changed, 7 insertions(+), 6 deletions(-)
|
||||||
|
|
||||||
|
diff --git a/lib/Env.pm b/lib/Env.pm
|
||||||
|
index 6e6cd8b..eaf30f1 100644
|
||||||
|
--- a/lib/Env.pm
|
||||||
|
+++ b/lib/Env.pm
|
||||||
|
@@ -1,6 +1,6 @@
|
||||||
|
package Env;
|
||||||
|
|
||||||
|
-our $VERSION = '1.04';
|
||||||
|
+our $VERSION = '1.05';
|
||||||
|
|
||||||
|
=head1 NAME
|
||||||
|
|
||||||
|
@@ -35,7 +35,7 @@ You may access its value
|
||||||
|
|
||||||
|
or modify it
|
||||||
|
|
||||||
|
- $PATH .= ":.";
|
||||||
|
+ $PATH .= ":/any/path";
|
||||||
|
push @LD_LIBRARY_PATH, $dir;
|
||||||
|
|
||||||
|
however you'd like. Bear in mind, however, that each access to a tied array
|
||||||
|
@@ -44,15 +44,16 @@ variable requires splitting the environment variable's string anew.
|
||||||
|
The code:
|
||||||
|
|
||||||
|
use Env qw(@PATH);
|
||||||
|
- push @PATH, '.';
|
||||||
|
+ push @PATH, '/any/path';
|
||||||
|
|
||||||
|
-is equivalent to:
|
||||||
|
+is almost equivalent to:
|
||||||
|
|
||||||
|
use Env qw(PATH);
|
||||||
|
- $PATH .= ":.";
|
||||||
|
+ $PATH .= ":/any/path";
|
||||||
|
|
||||||
|
except that if C<$ENV{PATH}> started out empty, the second approach leaves
|
||||||
|
-it with the (odd) value "C<:.>", but the first approach leaves it with "C<.>".
|
||||||
|
+it with the (odd) value "C<:/any/path>", but the first approach leaves it with
|
||||||
|
+"C</any/path>".
|
||||||
|
|
||||||
|
To remove a tied environment variable from
|
||||||
|
the environment, assign it the undefined value
|
||||||
|
--
|
||||||
|
2.30.2
|
||||||
|
|
||||||
@ -0,0 +1,56 @@
|
|||||||
|
From dd0857320449cb99c7dc312b9f1ebd9d571bad09 Mon Sep 17 00:00:00 2001
|
||||||
|
From: Jitka Plesnikova <jplesnik@redhat.com>
|
||||||
|
Date: Tue, 16 May 2023 15:26:11 +0200
|
||||||
|
Subject: [PATCH] Upgrade to 1.06
|
||||||
|
|
||||||
|
---
|
||||||
|
lib/Env.pm | 4 ++--
|
||||||
|
t/release-pod-syntax.t | 15 ---------------
|
||||||
|
2 files changed, 2 insertions(+), 17 deletions(-)
|
||||||
|
delete mode 100644 t/release-pod-syntax.t
|
||||||
|
|
||||||
|
diff --git a/lib/Env.pm b/lib/Env.pm
|
||||||
|
index eaf30f1..991afdd 100644
|
||||||
|
--- a/lib/Env.pm
|
||||||
|
+++ b/lib/Env.pm
|
||||||
|
@@ -1,6 +1,6 @@
|
||||||
|
package Env;
|
||||||
|
|
||||||
|
-our $VERSION = '1.05';
|
||||||
|
+our $VERSION = '1.06';
|
||||||
|
|
||||||
|
=head1 NAME
|
||||||
|
|
||||||
|
@@ -75,7 +75,7 @@ Gregor N. Purdy E<lt>F<gregor@focusresearch.com>E<gt>
|
||||||
|
=cut
|
||||||
|
|
||||||
|
sub import {
|
||||||
|
- my ($callpack) = caller(0);
|
||||||
|
+ my $callpack = caller(0);
|
||||||
|
my $pack = shift;
|
||||||
|
my @vars = grep /^[\$\@]?[A-Za-z_]\w*$/, (@_ ? @_ : keys(%ENV));
|
||||||
|
return unless @vars;
|
||||||
|
diff --git a/t/release-pod-syntax.t b/t/release-pod-syntax.t
|
||||||
|
deleted file mode 100644
|
||||||
|
index d46a955..0000000
|
||||||
|
--- a/t/release-pod-syntax.t
|
||||||
|
+++ /dev/null
|
||||||
|
@@ -1,15 +0,0 @@
|
||||||
|
-#!perl
|
||||||
|
-
|
||||||
|
-BEGIN {
|
||||||
|
- unless ($ENV{RELEASE_TESTING}) {
|
||||||
|
- require Test::More;
|
||||||
|
- Test::More::plan(skip_all => 'these tests are for release candidate testing');
|
||||||
|
- }
|
||||||
|
-}
|
||||||
|
-
|
||||||
|
-use Test::More;
|
||||||
|
-
|
||||||
|
-eval "use Test::Pod 1.41";
|
||||||
|
-plan skip_all => "Test::Pod 1.41 required for testing POD" if $@;
|
||||||
|
-
|
||||||
|
-all_pod_files_ok();
|
||||||
|
--
|
||||||
|
2.40.1
|
||||||
|
|
||||||
Loading…
Reference in new issue