File tree Expand file tree Collapse file tree 2 files changed +3
-1
lines changed
lib/TAP/Parser/SourceHandler Expand file tree Collapse file tree 2 files changed +3
-1
lines changed Original file line number Diff line number Diff line change @@ -7,6 +7,7 @@ Revision history for Test-Harness
77 - Avoid non-deterministic source handling, make a SourceHandler tie an
88 error. (Michael Schwern, Leon Timmermans)
99 - Fix and simplify MSWin32 colorization (Roy Ivy III)
10+ - Fix file source handler to accept single extensions option (Tomoki Aonuma)
1011 - Spelling fixes (Brian Wightman)
1112
12133.39 06-04-2017
Original file line number Diff line number Diff line change @@ -71,7 +71,8 @@ sub can_handle {
7171 return 0.9 if $file -> {lc_ext } eq ' .tap' ;
7272
7373 if ( my $exts = $config -> {extensions } ) {
74- return 0.9 if grep { lc ($_ ) eq $file -> {lc_ext } } @$exts ;
74+ my @exts = ref $exts eq ' ARRAY' ? @$exts : $exts ;
75+ return 0.9 if grep { lc ($_ ) eq $file -> {lc_ext } } @exts ;
7576 }
7677
7778 return 0;
You can’t perform that action at this time.
0 commit comments