mirror of
https://github.com/ClusterCockpit/cc-docker.git
synced 2025-10-31 01:05:07 +01:00
53 lines
1.0 KiB
Perl
Executable File
53 lines
1.0 KiB
Perl
Executable File
#!/usr/bin/env perl
|
|
use warnings;
|
|
use strict;
|
|
|
|
my $filename =
|
|
shift || &help; # command line argument is perl script to evaluate
|
|
my @modules; # array of 'use' statements from code we are checking
|
|
|
|
open( IN, $filename ) or die "couldn't open $filename for processing: $!
|
|
+\n";
|
|
|
|
while (<IN>) {
|
|
chomp;
|
|
if ( (/^use/) and not( /strict/ || /warnings/ ) ) {
|
|
push @modules, $_;
|
|
}
|
|
}
|
|
close IN;
|
|
my $fail = 0;
|
|
|
|
for my $code (@modules) {
|
|
my ( undef, $library ) = split( / /, $code ); # get the module name
|
|
$library =~ s/;//; # clean up the name
|
|
eval $code;
|
|
if ($@) {
|
|
warn "couldn't load $library: $@", "\n";
|
|
$fail = 1;
|
|
}
|
|
}
|
|
|
|
if ($fail) {
|
|
exit 0;
|
|
} else {
|
|
exit 1;
|
|
}
|
|
|
|
sub help
|
|
{
|
|
print <<"END";
|
|
|
|
checkPerlModules.pl
|
|
|
|
This script finds all the "use" statements loading modules in the targ
|
|
+et perl
|
|
file (specified as a command line argument) and attempts to load them.
|
|
If there are problems loading the module, the error mesage returned is
|
|
+ printed.
|
|
|
|
END
|
|
exit;
|
|
}
|
|
|