File extension is in extensions list: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: typo) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Sigh. wrong typo) |
||
Line 1,073: | Line 1,073: | ||
<lang perl6>sub check-extension ($filename, *@extensions) { |
<lang perl6>sub check-extension ($filename, *@extensions) { |
||
so $filename ~~ /:i '.' @extensions $/ |
so $filename ~~ /:i '.' @extensions $/ |
||
} |
|||
# Testing: |
# Testing: |