diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2017-01-10 09:06:50 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2017-01-10 09:07:26 -0700 |
commit | 5ab5457c5a444c302fd2c9f53d87fbf7c2087c25 (patch) | |
tree | d11be9a62cd87e276702d5796d7c1a29ea86e5bf /lib | |
parent | d70c1b3c27c699c5207921579f160a79c341a4e5 (diff) |
inform the user when fail to determine desc
Diffstat (limited to 'lib')
-rw-r--r-- | lib/DhMakeELPA/Command/Packaging.pm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lib/DhMakeELPA/Command/Packaging.pm b/lib/DhMakeELPA/Command/Packaging.pm index acde0c4..6c609b8 100644 --- a/lib/DhMakeELPA/Command/Packaging.pm +++ b/lib/DhMakeELPA/Command/Packaging.pm @@ -178,7 +178,8 @@ sub fill_vcs { sub extract_description { my ($self, $el_file) = @_; my ($short_desc, $long_desc); - my $pkg_file = $el_file =~ s/\.el/-pkg.el/r; + my $package = $el_file =~ s/\.el//r; + my $pkg_file = $package."-pkg.el"; if ( -e $pkg_file ) { my $fh = $self->_file_r($pkg_file); @@ -205,10 +206,12 @@ sub extract_description { } unless (defined $short_desc) { - $short_desc = "couldn't determine short description" + print "I: couldn't determine short description for $package\n"; + $short_desc = "couldn't determine short description"; } unless (defined $long_desc) { - $long_desc = "couldn't determine long description" + print "I: couldn't determine long description for $package\n"; + $long_desc = "couldn't determine long description"; } return ($short_desc, $long_desc); } |