[libnet-openid-common-perl] 11/34: Apparently the multi-constant form of "use constant" wasn't available in Perl 5.6, so let's do it as two seperate calls.

[gregor herrmann]

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 <mart at 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