Compare commits
No commits in common. 'cs10' and 'c9' have entirely different histories.
@ -1,54 +0,0 @@
|
|||||||
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
|
|
||||||
|
|
||||||
@ -1,56 +0,0 @@
|
|||||||
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