The date in the $VERSION string is going to include parens, so don't
add additional parens when outputing the version string (in response
to -v, for example).
exec ('perldoc', '-t', $0) or die "Cannot fork: $!\n";
} elsif ($version) {
my $version = $VERSION;
- $version =~ s/(\S+)$/($1)/;
print "check_afsspace $version\n";
exit 0;
}
exec ('perldoc', '-t', $0) or die "Cannot fork: $!\n";
} elsif ($version) {
my $version = $VERSION;
- $version =~ s/(\S+)$/($1)/;
print "check_bos $version\n";
exit 0;
}
exec ('perldoc', '-t', $0) or die "Cannot fork: $!\n";
} elsif ($version) {
my $version = $VERSION;
- $version =~ s/(\S+)$/($1)/;
print "check_bos $version\n";
exit 0;
}
exec ('perldoc', '-t', $0) or die "Cannot fork: $!\n";
} elsif ($version) {
my $version = $VERSION;
- $version =~ s/(\S+)$/($1)/;
print "check_bos $version\n";
exit 0;
}