[Catalyst-commits] r6533 - in trunk/Authen-Htpasswd: . lib/Authen lib/Authen/Htpasswd t

[ningu at dev.catalyst.perl.org]

Author: ningu
Date: 2007-07-16 00:01:57 +0100 (Mon, 16 Jul 2007)
New Revision: 6533

Modified:
   trunk/Authen-Htpasswd/Changes
   trunk/Authen-Htpasswd/lib/Authen/Htpasswd.pm
   trunk/Authen-Htpasswd/lib/Authen/Htpasswd/User.pm
   trunk/Authen-Htpasswd/lib/Authen/Htpasswd/Util.pm
   trunk/Authen-Htpasswd/t/01use.t
   trunk/Authen-Htpasswd/t/02pod.t
   trunk/Authen-Htpasswd/t/03podcoverage.t
   trunk/Authen-Htpasswd/t/04core.t
   trunk/Authen-Htpasswd/t/05edit.t
Log:
minor cleanup to Alias's changes

Modified: trunk/Authen-Htpasswd/Changes
===================================================================
--- trunk/Authen-Htpasswd/Changes	2007-07-15 21:28:14 UTC (rev 6532)
+++ trunk/Authen-Htpasswd/Changes	2007-07-15 23:01:57 UTC (rev 6533)
@@ -1,11 +1,9 @@
-0.16 Sun Jul 15 2007
+0.16    Sun Jul 15 15:20:28 PDT 2007
     - Disable write locking on Win32.
       (On Win32 you cannot delete a file with an open filehandle)
-
-0.15001 Sun Jul 15 00:07:00 PDT 2007
     - use File::Spec in tests to avoid build failure on Windows
 
-0.15	Sun Dec 31 02:51:35 EST 2006
+0.15    Sun Dec 31 02:51:35 EST 2006
     - prevent User::password() from clobbering the password if none is passed
     - document Util::supported_hashes()
 

Modified: trunk/Authen-Htpasswd/lib/Authen/Htpasswd/User.pm
===================================================================
--- trunk/Authen-Htpasswd/lib/Authen/Htpasswd/User.pm	2007-07-15 21:28:14 UTC (rev 6532)
+++ trunk/Authen-Htpasswd/lib/Authen/Htpasswd/User.pm	2007-07-15 23:01:57 UTC (rev 6533)
@@ -5,11 +5,6 @@
 use Authen::Htpasswd;
 use Authen::Htpasswd::Util;
 
-use vars qw{$VERSION};
-BEGIN {
-	$VERSION = '0.16';
-}
-
 use overload '""' => \&to_line, bool => sub { 1 }, fallback => 1;
 
 __PACKAGE__->mk_accessors(qw/ file encrypt_hash check_hashes /);
@@ -199,9 +194,10 @@
 
 =head1 COPYRIGHT & LICENSE
 
-	Copyright (c) 2005 the aforementioned authors. All rights
-	reserved. This program is free software; you can redistribute
-	it and/or modify it under the same terms as Perl itself.
+    Copyright (c) 2005 - 2007 the aforementioned authors.
+    
+    This program is free software; you can redistribute
+    it and/or modify it under the same terms as Perl itself.
 
 =cut
 

Modified: trunk/Authen-Htpasswd/lib/Authen/Htpasswd/Util.pm
===================================================================
--- trunk/Authen-Htpasswd/lib/Authen/Htpasswd/Util.pm	2007-07-15 21:28:14 UTC (rev 6532)
+++ trunk/Authen-Htpasswd/lib/Authen/Htpasswd/Util.pm	2007-07-15 23:01:57 UTC (rev 6533)
@@ -5,9 +5,9 @@
 
 use vars qw{@ISA @EXPORT};
 BEGIN {
-	require Exporter;
-	@ISA = qw/ Exporter /;
-	@EXPORT = qw/ htpasswd_encrypt /;
+    require Exporter;
+    @ISA = qw/ Exporter /;
+    @EXPORT = qw/ htpasswd_encrypt /;
 }
 
 my @CRYPT_CHARS = split(//, './0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz');
@@ -85,9 +85,10 @@
 
 =head1 COPYRIGHT & LICENSE
 
-	Copyright (c) 2005 the aforementioned authors. All rights
-	reserved. This program is free software; you can redistribute
-	it and/or modify it under the same terms as Perl itself.
+    Copyright (c) 2005 - 2007 the aforementioned authors.
+    
+    This program is free software; you can redistribute
+    it and/or modify it under the same terms as Perl itself.
 
 =cut
 

Modified: trunk/Authen-Htpasswd/lib/Authen/Htpasswd.pm
===================================================================
--- trunk/Authen-Htpasswd/lib/Authen/Htpasswd.pm	2007-07-15 21:28:14 UTC (rev 6532)
+++ trunk/Authen-Htpasswd/lib/Authen/Htpasswd.pm	2007-07-15 23:01:57 UTC (rev 6533)
@@ -9,8 +9,8 @@
 
 use vars qw{$VERSION $SUFFIX};
 BEGIN {
-	$VERSION = '0.16';
-	$SUFFIX = '.new';
+    $VERSION = '0.16';
+    $SUFFIX = '.new';
 }
 
 __PACKAGE__->mk_accessors(qw/ file encrypt_hash check_hashes /);
@@ -318,10 +318,10 @@
 
 =head1 COPYRIGHT & LICENSE
 
-	Copyright (c) 2005 - 2007 the aforementioned authors.
+    Copyright (c) 2005 - 2007 the aforementioned authors.
         
-        This program is free software; you can redistribute
-	it and/or modify it under the same terms as Perl itself.
+    This program is free software; you can redistribute
+    it and/or modify it under the same terms as Perl itself.
 
 =cut
 

Modified: trunk/Authen-Htpasswd/t/01use.t
===================================================================
--- trunk/Authen-Htpasswd/t/01use.t	2007-07-15 21:28:14 UTC (rev 6532)
+++ trunk/Authen-Htpasswd/t/01use.t	2007-07-15 23:01:57 UTC (rev 6533)
@@ -2,8 +2,8 @@
 
 use strict;
 BEGIN {
-	$|  = 1;
-	$^W = 1;
+    $|  = 1;
+    $^W = 1;
 }
 
 use Test::More 'no_plan';

Modified: trunk/Authen-Htpasswd/t/02pod.t
===================================================================
--- trunk/Authen-Htpasswd/t/02pod.t	2007-07-15 21:28:14 UTC (rev 6532)
+++ trunk/Authen-Htpasswd/t/02pod.t	2007-07-15 23:01:57 UTC (rev 6533)
@@ -2,8 +2,8 @@
 
 use strict;
 BEGIN {
-	$|  = 1;
-	$^W = 1;
+    $|  = 1;
+    $^W = 1;
 }
 
 use Test::More;

Modified: trunk/Authen-Htpasswd/t/03podcoverage.t
===================================================================
--- trunk/Authen-Htpasswd/t/03podcoverage.t	2007-07-15 21:28:14 UTC (rev 6532)
+++ trunk/Authen-Htpasswd/t/03podcoverage.t	2007-07-15 23:01:57 UTC (rev 6533)
@@ -2,8 +2,8 @@
 
 use strict;
 BEGIN {
-	$|  = 1;
-	$^W = 1;
+    $|  = 1;
+    $^W = 1;
 }
 
 use Test::More;

Modified: trunk/Authen-Htpasswd/t/04core.t
===================================================================
--- trunk/Authen-Htpasswd/t/04core.t	2007-07-15 21:28:14 UTC (rev 6532)
+++ trunk/Authen-Htpasswd/t/04core.t	2007-07-15 23:01:57 UTC (rev 6533)
@@ -2,8 +2,8 @@
 
 use strict;
 BEGIN {
-	$|  = 1;
-	$^W = 1;
+    $|  = 1;
+    $^W = 1;
 }
 
 use Test::More tests => 13;

Modified: trunk/Authen-Htpasswd/t/05edit.t
===================================================================
--- trunk/Authen-Htpasswd/t/05edit.t	2007-07-15 21:28:14 UTC (rev 6532)
+++ trunk/Authen-Htpasswd/t/05edit.t	2007-07-15 23:01:57 UTC (rev 6533)
@@ -2,8 +2,8 @@
 
 use strict;
 BEGIN {
-	$|  = 1;
-	$^W = 1;
+    $|  = 1;
+    $^W = 1;
 }
 
 use Test::More tests => 28;