[perl-App-cpanminus] Update fatunpack to deal with FatPacker #line

Petr Pisar ppisar at fedoraproject.org
Wed Apr 30 06:25:49 UTC 2014


commit 247db4a6d3d5bd732972043316f25d02b65046c0
Author: Petr Písař <ppisar at redhat.com>
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 at redhat.com>.
+Copyright © 2013, 2014  Petr Písař <ppisar at redhat.com>.
 
 =head1 LICENSE
 


More information about the scm-commits mailing list