[carton] 404/472: Bundle File::Spec and Cwd in non-arch path for perl < 5.16

[Lucas Kanashiro]

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