Compare commits
No commits in common. 'c9' and 'cs10' 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