[libnet-openid-common-perl] 01/03: add syntax checks, remove spurious 'my' declarations

[gregor herrmann]

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

gregoa pushed a commit to annotated tag v1.17
in repository libnet-openid-common-perl.

commit da73e5ac9bb08199ee0c1ba8cec45401cbbd7d7a
Author: Roger Crew <crew at cs.stanford.edu>
Date:   Fri Apr 12 14:30:20 2013 -0700

    add syntax checks, remove spurious 'my' declarations
---
 dist.ini                                       | 3 +++
 lib/Net/OpenID/Extension/SimpleRegistration.pm | 4 ++--
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/dist.ini b/dist.ini
index 46bfcc9..71815e9 100644
--- a/dist.ini
+++ b/dist.ini
@@ -43,3 +43,6 @@ HTTP::Headers::Util = 0
 
 [Prereqs / TestRequires]
 Test::More     = 0
+
+[ExtraTests]
+[PodSyntaxTests]
diff --git a/lib/Net/OpenID/Extension/SimpleRegistration.pm b/lib/Net/OpenID/Extension/SimpleRegistration.pm
index 493b7e5..c85cfa1 100644
--- a/lib/Net/OpenID/Extension/SimpleRegistration.pm
+++ b/lib/Net/OpenID/Extension/SimpleRegistration.pm
@@ -59,7 +59,7 @@ sub received {
     my ($class, $args) = @_;
 
     my $self = $class->new();
-    my $args = $args->{sreg} || {};
+    $args = $args->{sreg} || {};
 
     $self->required_fields($args->{required});
     $self->optional_fields($args->{optional});
@@ -172,7 +172,7 @@ sub new {
 sub received {
     my ($class, $args) = @_;
 
-    my $args = $args->{sreg} || {};
+    $args = $args->{sreg} || {};
     my %opts = ();
 
     foreach my $field_name (@{FIELDS()}) {

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libnet-openid-common-perl.git