[libmodule-install-doapchangesets-perl] 39/47: changes to release header format for CPAN::Changes::Spec 0.02

Jonas Smedegaard js at alioth.debian.org
Fri Aug 9 14:08:46 UTC 2013


This is an automated email from the git hooks/post-receive script.

js pushed a commit to branch master
in repository libmodule-install-doapchangesets-perl.

commit 5289c3f5804147a5c56ddb3c9ec087e8bbfd4b31
Author: Toby Inkster <mail at tobyinkster.co.uk>
Date:   Wed Jul 31 09:25:52 2013 +0100

    changes to release header format for CPAN::Changes::Spec 0.02
    
    --HG--
    branch : Module-Install-DOAPChangeSets
---
 lib/RDF/DOAP/ChangeSets.pm |    8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/lib/RDF/DOAP/ChangeSets.pm b/lib/RDF/DOAP/ChangeSets.pm
index 66c5a5c..564d13c 100644
--- a/lib/RDF/DOAP/ChangeSets.pm
+++ b/lib/RDF/DOAP/ChangeSets.pm
@@ -149,10 +149,8 @@ sub to_string
 		{
 			# Version number, release data and version name.
 			$rv.= $version->{'revision'};
-			$rv.= sprintf('  %s', $version->{'issued'})
-				if $version->{'issued'};
-			$rv.= sprintf("  # %s", $version->{'name'})
-				if $version->{'name'};
+			$rv.= sprintf('  %s', $version->{'issued'} ? $version->{'issued'} : 'Unknown');
+			$rv.= sprintf("  %s", $version->{'name'}) if $version->{'name'};
 			$rv.= "\n\n";
 			
 			my @changes = map
@@ -204,7 +202,7 @@ sub to_string
 		}
 		
 	}
-
+	
 	return $rv;
 }
 

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmodule-install-doapchangesets-perl.git



More information about the Pkg-perl-cvs-commits mailing list