diff options
| author | Jesse Luehrs <doy@tozt.net> | 2010-09-01 17:26:02 -0500 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2010-09-01 17:26:02 -0500 |
| commit | d178437ea37b163516e8ea6918b6755a0536ea59 (patch) | |
| tree | e41d0231dbbbf4be468c52905e5859345cc42996 | |
| parent | c24cd457d64b5ffe48b381f5e28cdd1def59b07b (diff) | |
| download | plack-middleware-auth-htpasswd-d178437ea37b163516e8ea6918b6755a0536ea59.tar.gz plack-middleware-auth-htpasswd-d178437ea37b163516e8ea6918b6755a0536ea59.zip | |
don't override my 'file' accessor method with Path::Class::file
| -rw-r--r-- | lib/Plack/Middleware/Auth/Htpasswd.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Plack/Middleware/Auth/Htpasswd.pm b/lib/Plack/Middleware/Auth/Htpasswd.pm index b3d0f54..2f9d949 100644 --- a/lib/Plack/Middleware/Auth/Htpasswd.pm +++ b/lib/Plack/Middleware/Auth/Htpasswd.pm @@ -7,7 +7,7 @@ use Plack::Request; use Authen::Htpasswd; use MIME::Base64; -use Path::Class; +use Path::Class (); sub prepare_app { my $self = shift; @@ -51,7 +51,7 @@ sub authenticate { if defined $self->file; my $req = Plack::Request->new($env); - my $dir = dir($self->file_root); + my $dir = Path::Class::Dir->new($self->file_root); my @htpasswd = reverse map { $_->file('.htpasswd')->stringify } map { $dir = $dir->subdir($_) } |