diff options
author | Eric Wong <e@80x24.org> | 2022-09-30 09:21:37 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2022-09-30 16:25:03 +0000 |
commit | 17f399e886c82f734a755c5115c5deb030c3ea3c (patch) | |
tree | 6c902f66577dd744b7665e3e59130dcf53c810f4 /t/hl_mod.t | |
parent | 323c75f55b03fae805179da231e252dae1099511 (diff) | |
download | public-inbox-17f399e886c82f734a755c5115c5deb030c3ea3c.tar.gz |
It makes code easier to review, and is more robust in case some weirdos actually start their path names with '<' or '>' :P
Diffstat (limited to 't/hl_mod.t')
-rw-r--r-- | t/hl_mod.t | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1,5 +1,5 @@ #!/usr/bin/perl -w -# Copyright (C) 2019-2021 all contributors <meta@public-inbox.org> +# Copyright (C) all contributors <meta@public-inbox.org> # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt> use strict; use v5.10.1; use PublicInbox::TestCommon; use IO::Handle; # ->autoflush use Fcntl qw(:seek); @@ -11,7 +11,7 @@ is($hls->_shebang2lang(\"#!/usr/bin/perl -w\n"), 'perl', 'perl shebang OK'); is($hls->{-ext2lang}->{'pm'}, 'perl', '.pm suffix OK'); is($hls->{-ext2lang}->{'pl'}, 'perl', '.pl suffix OK'); like($hls->_path2lang('Makefile'), qr/\Amake/, 'Makefile OK'); -my $str = do { local $/; open(my $fh, __FILE__); <$fh> }; +my $str = do { local $/; open(my $fh, '<', __FILE__); <$fh> }; my $orig = $str; { |