commit 247db4a6d3d5bd732972043316f25d02b65046c0
Author: Petr Písař <ppisar@xxxxxxxxxx>
Date: Wed Apr 30 08:04:56 2014 +0200
Update fatunpack to deal with FatPacker #line
App-cpanminus-1.7004 brings a new syntax:
$fatpacked{"App/cpanminus.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'APP_CPANMINUS';
fatunpack | 6 +++---
1 files changed, 3 insertions(+), 3 deletions(-)
---
diff --git a/fatunpack b/fatunpack
index f13b107..0cc0652 100755
--- a/fatunpack
+++ b/fatunpack
@@ -20,7 +20,7 @@ eval { $filter = qr{$filter}; 1} or
my ($file, $filename, $delimiter);
while (<>) {
- if (/^\$fatpacked\{\s*"([^"]*)"\s*\}\s*=\s*<<\s*'([^']*)'\s*;/) {
+ if (/^\$fatpacked\{\s*"([^"]*)"\s*\}\s*=.*<<\s*'([^']*)'\s*;/) {
# Packed module beginning found
$filename = $1;
$delimiter = $2;
@@ -99,11 +99,11 @@ regular expression, i.e. to save all modules.
=head1 VERSION
-This is version 1.
+This is version 2.
=head1 COPYRIGHT
-Copyright © 2013 Petr Písař <ppisar@xxxxxxxxxx>.
+Copyright © 2013, 2014 Petr Písař <ppisar@xxxxxxxxxx>.
=head1 LICENSE
--
Fedora Extras Perl SIG
http://www.fedoraproject.org/wiki/Extras/SIGs/Perl
perl-devel mailing list
perl-devel@xxxxxxxxxxxxxxxxxxxxxxx
https://admin.fedoraproject.org/mailman/listinfo/perl-devel
