Ingest: read_06perms_fh - supprort alternative file (for testing)

mickeyn · mickeyn · commit 37b9e90b4c97 · 2025-05-03T16:41:42.000Z
diff --git a/lib/MetaCPAN/Ingest.pm b/lib/MetaCPAN/Ingest.pm
@@ -368,7 +368,9 @@ sub read_02packages ( $file = undef ) {
 }
 
 # TODO: replace usage with unified read_06perms
-sub read_06perms_fh () {
+sub read_06perms_fh ( $file = undef ) {
+    return path($file)->openr if $file;
+
     my $cpan = cpan_dir();
     return $cpan->child(qw< modules 06perms.txt >)->openr;
 }

Original file line number	Diff line number	Diff line change
`@@ -368,7 +368,9 @@ sub read_02packages ( $file = undef ) {`
`368`	`368`	`}`
`369`	`369`
`370`	`370`	`# TODO: replace usage with unified read_06perms`
`371`		`-sub read_06perms_fh () {`
	`371`	`+sub read_06perms_fh ( $file = undef ) {`
	`372`	`+ return path($file)->openr if $file;`
	`373`	`+`
`372`	`374`	`my $cpan = cpan_dir();`
`373`	`375`	`return $cpan->child(qw< modules 06perms.txt >)->openr;`
`374`	`376`	`}`