tidy extract_version

1 files changed, 1 insertions, 3 deletions

diff --git a/lib/DhMakeELPA/Command/Packaging.pm b/lib/DhMakeELPA/Command/Packaging.pm
index 44c77a0..a5d6788 100644
--- a/lib/DhMakeELPA/Command/Packaging.pm
+++ b/lib/DhMakeELPA/Command/Packaging.pm
@@ -192,8 +192,7 @@ sub extract_version {
         if ( -f $self->main_file("$bin.el") ) {
             my $fh = $self->_file_r("$bin.el");
             while (my $line = $fh->getline) {
-                if ( $line =~ /^;; Version: ([0-9.]*)$/ ) {
-                    print "win $1";
+                if ( $line =~ /^;; (Package-)*Version: ([0-9.]*)$/ ) {
                     $version = $1;
                 }
             }
@@ -203,7 +202,6 @@ sub extract_version {
             my $fh = $self->_file_r("$bin-pkg.el");
             while (my $line = $fh->getline) {
                 if ( $line =~ /.*\(define-package\s+"[^"]+"\s+"([0-9.]*)"/ ) {
-                    print "win $1";
                     $version = $1;
                 }
             }