[carton] 404/472: Bundle File::Spec and Cwd in non-arch path for perl < 5.16
Lucas Kanashiro
kanashiro-guest at moszumanska.debian.org
Fri Jul 24 00:39:28 UTC 2015
This is an automated email from the git hooks/post-receive script.
kanashiro-guest pushed a commit to branch master
in repository carton.
commit 658541b4ad74686a22f834dd8ade4e2482907d78
Author: Tatsuhiko Miyagawa <miyagawa at bulknews.net>
Date: Sat Aug 10 20:27:40 2013 -0700
Bundle File::Spec and Cwd in non-arch path for perl < 5.16
---
lib/Carton/Packer.pm | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/lib/Carton/Packer.pm b/lib/Carton/Packer.pm
index c1554cd..9d604b6 100644
--- a/lib/Carton/Packer.pm
+++ b/lib/Carton/Packer.pm
@@ -35,6 +35,10 @@ EOF
$packer->fatpack_file($file);
};
+ # HACK: File::Spec bundled into arch in < 5.16, but is loadable as pure-perl
+ use Config;
+ $fatpacked =~ s/\$fatpacked{"$Config{archname}\/(Cwd|File)/\$fatpacked{"$1/g;
+
my $executable = $dir->child('carton');
warn "Bundling $executable\n";
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/carton.git
More information about the Pkg-perl-cvs-commits
mailing list