diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2016-04-03 20:13:31 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2016-04-03 20:13:31 -0700 |
commit | 5e4ca96964fc544fb4bdc3b3299acd5f69b9a067 (patch) | |
tree | 37c2ea10877986f2408f0a6a10f0d28376dd5dc4 /lib/DhMakeELPA | |
parent | 554ec94e0b4f5175d70cfe36a512dd3147bf5d5d (diff) |
fix undefined warning
Diffstat (limited to 'lib/DhMakeELPA')
-rw-r--r-- | lib/DhMakeELPA/Command/Packaging.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/DhMakeELPA/Command/Packaging.pm b/lib/DhMakeELPA/Command/Packaging.pm index f845feb..0e459e3 100644 --- a/lib/DhMakeELPA/Command/Packaging.pm +++ b/lib/DhMakeELPA/Command/Packaging.pm @@ -169,7 +169,9 @@ sub extract_description { my $lines = join("", $fh->getlines); if ( $lines =~ /;;; Commentary:/ ) { $lines =~ /.*Commentary:\n\n(.*?)\n\n;;; Code:.*/s; - $long_desc = $1 =~ s/;; //rsg; + if ( defined $1 ) { + $long_desc = $1 =~ s/;; //rsg; + } } $fh->close; } |