diff options
author | Tatsuhiko Miyagawa <miyagawa@bulknews.net> | 2013-08-10 20:27:40 -0700 |
---|---|---|
committer | Tatsuhiko Miyagawa <miyagawa@bulknews.net> | 2013-08-10 20:27:57 -0700 |
commit | 658541b4ad74686a22f834dd8ade4e2482907d78 (patch) | |
tree | a60b120fece879df4d1f58e0e1221f7a96eb3b55 | |
parent | 6c3e161851a8bace5ed3bb9cb100523ead547d00 (diff) | |
download | carton-658541b4ad74686a22f834dd8ade4e2482907d78.tar.gz |
Bundle File::Spec and Cwd in non-arch path for perl < 5.16
-rw-r--r-- | lib/Carton/Packer.pm | 4 |
1 files changed, 4 insertions, 0 deletions
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"; |