perlmodver: display message if module can't be found

Signed-off-by: Florian Pritz <bluewind@xinu.at>

1 files changed, 4 insertions, 3 deletions

diff --git a/perlmodver b/perlmodver
index 298079f..87891e6 100755
--- a/perlmodver
+++ b/perlmodver
@@ -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 $@;
+}