#!/usr/bin/env perl
# PODNAME: msgfilter
# ABSTRACT: Command msgfilter of Alien-gettext

$|=1;

use strict;
use warnings;
use File::ShareDir ':ALL';
use Path::Class;
use Alien::gettext;

my $abs;
if(Alien::gettext->install_type ne 'system') {
	$abs = file(dist_dir('Alien-gettext'),'bin','msgfilter')->cleanup->absolute;
} else {
	die "Alien::gettext reinstalled as non-share install. Please remove wrapper at $0";
}

exec($abs, @ARGV) or print STDERR "couldn't exec msgfilter: $!";

__END__

=pod

=encoding UTF-8

=head1 NAME

msgfilter - Command msgfilter of Alien-gettext

=head1 VERSION

version 0.002

=head1 SUPPORT

=head2 Issues

Please report bugs and feature requests on GitHub at
L<https://github.com/Getty/p5-alien-gettext/issues>.

=head1 CONTRIBUTING

Contributions are welcome! Please fork the repository and submit a pull request.

=head1 AUTHOR

Torsten Raudssus <torsten@raudssus.de>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2026 by Torsten Raudssus.

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
