Skip to content

Commit ff9e589

Browse files
committed
Teach t/porting/utils.t about Porting/MANIFEST.dev
Patch best viewed with -w
1 parent 3cd79ce commit ff9e589

File tree

1 file changed

+7
-5
lines changed

1 file changed

+7
-5
lines changed

t/porting/utils.t

Lines changed: 7 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -33,13 +33,15 @@ find_git_or_skip('all');
3333

3434
my @maybe;
3535

36-
open my $fh, '<', 'MANIFEST' or die "Can't open MANIFEST: $!";
37-
while (<$fh>) {
38-
push @maybe, $1 if m!^(Porting/\S+)!;
36+
foreach my $manifest_file ('MANIFEST','Porting/MANIFEST.dev') {
37+
open my $fh, '<', $manifest_file or die "Can't open '$manifest_file': $!";
38+
while (<$fh>) {
39+
push @maybe, $1 if m!^(Porting/\S+)!;
40+
}
41+
close $fh or die "Failed to close '$manifest_file': $!";
3942
}
40-
close $fh or die $!;
4143

42-
open $fh, '<', 'utils.lst' or die "Can't open utils.lst: $!";
44+
open my $fh, '<', 'utils.lst' or die "Can't open utils.lst: $!";
4345
while (<$fh>) {
4446
die unless m!^(\S+)!;
4547
push @maybe, $1;

0 commit comments

Comments
 (0)