|
Linux server.jmdstrack.com 3.10.0-1160.119.1.el7.tuxcare.els10.x86_64 #1 SMP Fri Oct 11 21:40:41 UTC 2024 x86_64
/ usr/ bin/ |
|
|
#!/usr/bin/perl
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
if 0; # not running under some shell
use strict;
use warnings;
# PODNAME: package-stash-conflicts
use Getopt::Long;
use Package::Stash::Conflicts;
my $verbose;
GetOptions( 'verbose|v' => \$verbose );
if ($verbose) {
Package::Stash::Conflicts->check_conflicts;
}
else {
my @conflicts = Package::Stash::Conflicts->calculate_conflicts;
print "$_\n" for map { $_->{package} } @conflicts;
exit @conflicts;
}