/usr/bin/scan_mojibake is in libtest-mojibake-perl 1.3-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 | #!/usr/bin/perl
# ABSTRACT: scan Perl source and report bad character encoding
# PODNAME: scan_mojibake
use strict;
use warnings qw(all);
our $VERSION = '1.3'; # VERSION
use Pod::Usage;
use Test::Mojibake;
pod2usage(
-exitval => 0,
-verbose => 99,
) unless @ARGV;
all_files_encoding_ok(@ARGV);
__END__
=pod
=encoding UTF-8
=head1 NAME
scan_mojibake - scan Perl source and report bad character encoding
=head1 VERSION
version 1.3
=head1 SYNOPSIS
scan_mojibake [FILES|DIRS]
=head1 DESCRIPTION
Standalone CLI wrapper for the L<Test::Mojibake> module.
Does exactly the same as:
perl -MTest::Mojibake -e 'all_files_encoding_ok(@ARGV)' bin/ lib/ t/*.t
=head1 EXAMPLE
$ scan_mojibake bin/ lib/ t/*.t
1..14
ok 1 - Mojibake test for bin/scan_mojibake
ok 2 - Mojibake test for lib/Test/Mojibake.pm
ok 3 - Mojibake test for t/00-load.t
ok 4 - Mojibake test for t/01-bad-check.t
ok 5 - Mojibake test for t/01-self-check.t
ok 6 - Mojibake test for t/01-test-check.t
ok 7 - Mojibake test for t/02-bad-source.t
ok 8 - Mojibake test for t/02-good-source.t
ok 9 - Mojibake test for t/03-bad-pod.t
ok 10 - Mojibake test for t/03-good-pod.t
ok 11 - Mojibake test for t/04-bom.t
ok 12 - Mojibake test for t/05-encode.t
ok 13 - Mojibake test for t/06-pp-vs-xs.t
ok 14 - Mojibake test for t/07-broken-utf8.t
=head1 SEE ALSO
=over 4
=item *
L<Test::Mojibake>
=back
=head1 AUTHOR
Stanislaw Pusep <stas@sysd.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2017 by Stanislaw Pusep.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
|