diff options
| author | Tatsuhiko Miyagawa <miyagawa@gmail.com> | 2016-01-30 12:18:45 -0800 |
|---|---|---|
| committer | Tatsuhiko Miyagawa <miyagawa@gmail.com> | 2016-01-30 12:18:45 -0800 |
| commit | 5d0bb4d049abc2484f08a043ba94b8bfa5da8729 (patch) | |
| tree | af90e7473ea682b1e36516faecd057670fa53af3 | |
| parent | 474e3adcf9bc1115c8d39b51382df22d942324aa (diff) | |
| parent | 8ab892dc80b8b33ae3bc4a01e5e90c6f3a5b3488 (diff) | |
| download | carton-5d0bb4d049abc2484f08a043ba94b8bfa5da8729.tar.gz | |
Merge pull request #204 from hiroaki/unescaped-left-brace
fix a warning "Unescaped left brace in regex is deprecated, passed through in regex"
| -rw-r--r-- | lib/Carton/Packer.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Carton/Packer.pm b/lib/Carton/Packer.pm index dc1a2cf..ba7ff4b 100644 --- a/lib/Carton/Packer.pm +++ b/lib/Carton/Packer.pm @@ -50,7 +50,7 @@ sub do_fatpack { # 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; + $fatpacked =~ s/\$fatpacked\{"$Config{archname}\/(Cwd|File)/\$fatpacked{"$1/g; $fatpacked; } |