diff options
| author | V3n3RiX <venerix@redcorelinux.org> | 2017-10-09 18:53:29 +0100 |
|---|---|---|
| committer | V3n3RiX <venerix@redcorelinux.org> | 2017-10-09 18:53:29 +0100 |
| commit | 4f2d7949f03e1c198bc888f2d05f421d35c57e21 (patch) | |
| tree | ba5f07bf3f9d22d82e54a462313f5d244036c768 /dev-perl/Data-FormValidator/files/4.86-dot-in-inc.patch | |
reinit the tree, so we can have metadata
Diffstat (limited to 'dev-perl/Data-FormValidator/files/4.86-dot-in-inc.patch')
| -rw-r--r-- | dev-perl/Data-FormValidator/files/4.86-dot-in-inc.patch | 58 |
1 files changed, 58 insertions, 0 deletions
diff --git a/dev-perl/Data-FormValidator/files/4.86-dot-in-inc.patch b/dev-perl/Data-FormValidator/files/4.86-dot-in-inc.patch new file mode 100644 index 000000000000..a6fdb276e42d --- /dev/null +++ b/dev-perl/Data-FormValidator/files/4.86-dot-in-inc.patch @@ -0,0 +1,58 @@ +From bfc088aa911062d987c830d5bb56aa4afd0d3735 Mon Sep 17 00:00:00 2001 +From: Kent Fredric <kentfredric@gmail.com> +Date: Sun, 4 Jun 2017 00:40:04 +1200 +Subject: [PATCH] Absolutize filenames during construction + +This way, any relative paths become absolute as soon as possible, +so that if chdir happens between "new" and "load_profiles", the loaded +file won't magically change. + +This also aims to turn the <do "file.pm"> into a <do "/path/to/File.pm"> +as the former no longer reads from "." since Perl 5.25.11, as paths +with neither leading "./" or leading "/" imply @INC traversal. + +This aims to resolve RT#120671 + +https://rt.cpan.org/Ticket/Display.html?id=120671 +https://bugs.gentoo.org/613378 +--- + Makefile.PL | 1 + + lib/Data/FormValidator.pm | 3 ++- + 2 files changed, 3 insertions(+), 1 deletion(-) + +diff --git a/Makefile.PL b/Makefile.PL +index a9839a6..cef175a 100644 +--- a/Makefile.PL ++++ b/Makefile.PL +@@ -19,6 +19,7 @@ WriteMakefile( + 'Regexp::Common' => 0.03, # when ::whitespace was added + 'Scalar::Util' => 0, + 'Email::Valid' => 0, ++ 'File::Spec' => 0, + }, + (eval { ExtUtils::MakeMaker->VERSION(6.46) } ? (META_MERGE => { + 'meta-spec' => { version => 2 }, +diff --git a/lib/Data/FormValidator.pm b/lib/Data/FormValidator.pm +index 7075dc4..bc0709e 100644 +--- a/lib/Data/FormValidator.pm ++++ b/lib/Data/FormValidator.pm +@@ -24,6 +24,7 @@ + + package Data::FormValidator; + use Exporter 'import'; ++use File::Spec qw(); + use 5.008; + + use Data::FormValidator::Results; +@@ -147,7 +148,7 @@ sub new { + $profiles = $profiles_or_file; + } + else { +- $file = $profiles_or_file; ++ $file = File::Spec->rel2abs( $profiles_or_file ); + } + + +-- +2.12.2 + |