#!/usr/bin/perl -w

use strict;
use warnings;
use Gear::Remotes;

my $gear_remotes=Gear::Remotes->new();
print "Gear remotes .gear/upstream/remotes OK\n";

__END__

=head1	NAME

gear-remotes-check - check .gear/upstream/remotes file.

=head1	SYNOPSIS

B<gear-remotes-check>

=head1	DESCRIPTION

B<gear-remotes-check> check .gear/upstream/remotes file.
prints diagnostic message and returns exit code 0 if
I<.gear/upstream/remotes> file exists and is valid file.
Othervise, the exit code is not 0.

=head1	OPTIONS

none.

=head1	AUTHOR

Written by Igor Vlasenko <viy@altlinux.org>.

=head1	COPYING

Copyright (c) 2014-2021 Igor Vlasenko, ALT Linux Team.

This is free software; you can redistribute it and/or modify it under the terms
of the GNU General Public License as published by the Free Software Foundation;
either version 2 of the License, or (at your option) any later version.

=cut
