diff options
-rwxr-xr-x | perlmodver | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -1,6 +1,7 @@ #!/usr/bin/perl use strict; -foreach my $module ( @ARGV ) { +foreach my $module (@ARGV) { eval "require $module"; - printf( "%-20s: %s\n", $module, $module->VERSION ) unless ( $@ ); -}
\ No newline at end of file + printf("Can't find %s\n", $module) if $@; + printf("%-20s: %s\n", $module, $module->VERSION) unless $@; +} |