From 247db4a6d3d5bd732972043316f25d02b65046c0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
Date: Wed, 30 Apr 2014 08:04:56 +0200
Subject: [PATCH] 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 file 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@redhat.com>.
+Copyright © 2013, 2014  Petr Písař <ppisar@redhat.com>.
 
 =head1 LICENSE