Set absolute path to 06perms.txt

metacpan · Dec 9, 2016 · c6b18ba · c6b18ba
1 parent b81f509
commit c6b18ba
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lib/MetaCPAN/Script/Permission.pm b/lib/MetaCPAN/Script/Permission.pm
@@ -24,7 +24,8 @@ sub run {
 sub index_permissions {
     my $self = shift;
 
-    my $file_path = $self->cpan . '/modules/06perms.txt';
+    my $file_path
+        = $self->cpan->subdir('modules')->file('06perms.txt')->absolute;
     my $pp = PAUSE::Permissions->new( path => $file_path );
 
     my $bulk_helper = $self->es->bulk_helper(