This is an automated email from the git hooks/post-receive script.
gregoa pushed a commit to annotated tag v1.030099_001
in repository libnet-openid-common-perl.
commit 0219ea4be0809860b5a5288e8efa764578bcd77b
Author: Martin Atkins <m...@degeneration.co.uk>
Date: Mon Dec 1 04:44:58 2008 +0000
Apparently the multi-constant form of "use constant" wasn't available in
Perl 5.6, so let's do it as two seperate calls.
---
lib/Net/OpenID/Yadis.pm | 6 ++----
1 file changed, 2 insertions(+), 4 deletions(-)
diff --git a/lib/Net/OpenID/Yadis.pm b/lib/Net/OpenID/Yadis.pm
index 3866ff4..ced2fae 100644
--- a/lib/Net/OpenID/Yadis.pm
+++ b/lib/Net/OpenID/Yadis.pm
@@ -13,10 +13,8 @@ use Net::OpenID::Yadis::Service;
@EXPORT = qw(YR_HEAD YR_GET YR_XRDS);
-use constant {
- YR_GET => 1,
- YR_XRDS => 2,
-};
+use constant YR_GET => 1;
+use constant YR_XRDS => 2;
use fields (
'last_errcode', # last error code we got
--
Alioth's /usr/local/bin/git-commit-notice on
/srv/git.debian.org/git/pkg-perl/packages/libnet-openid-common-perl.git
_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
