X-Git-Url: https://vcs.fsf.org/?a=blobdiff_plain;f=src%2Fsrc%2Fexiqsumm.src;h=67772f5e8bf0029cd0f8fdb4132180b185601ec9;hb=9fa3eec7bb2e6a14a0b62dbc713c0ba5b2b5cd34;hp=c8b522ef503bd0a97e8bab79e35ac12d2d4682fe;hpb=8c4f17b33b068547ee8791c89f32d2453e666096;p=exim.git diff --git a/src/src/exiqsumm.src b/src/src/exiqsumm.src index c8b522ef5..67772f5e8 100644 --- a/src/src/exiqsumm.src +++ b/src/src/exiqsumm.src @@ -42,6 +42,15 @@ # Slightly modified sub from eximstats use warnings; +BEGIN { pop @INC if $INC[-1] eq '.' }; +use File::Basename; + +if (@ARGV && $ARGV[0] eq '--version') { + print basename($0) . ": $0\n", + "build: EXIM_RELEASE_VERSIONEXIM_VARIANT_VERSION\n", + "perl(runtime): $]\n"; + exit 0; +} sub print_volume_rounded { my($x) = pop @_;