From 960a895cb9286bf225fa66fa41c79bef0acb350e Mon Sep 17 00:00:00 2001 From: Florian Pritz Date: Tue, 21 May 2013 15:01:47 +0200 Subject: perlmodver: display message if module can't be found Signed-off-by: Florian Pritz --- perlmodver | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'perlmodver') 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 $@; +} -- cgit v1.2.3-24-g4f1b