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ř . +Copyright © 2013, 2014 Petr Písař . =head1 LICENSE