changes to perl/Messages from ea1dav

[spider.git] / cmd / show / version.pl

diff --git a/cmd/show/version.pl b/cmd/show/version.pl
index fb84ab2cbdf50320a3f8ebfa33732648d5cb397d..da72e305938cb3b263623be2578791738629ab12 100644 (file)
--- a/cmd/show/version.pl
+++ b/cmd/show/version.pl
@@ -9,14 +9,12 @@
 my @out;
 my $build = $main::version;
 
-use IO::File;
-
 if (opendir(DIR, "$main::root/perl")) {
        my @d = readdir(DIR);
        closedir(DIR);
        foreach my $fn (@d) {
                if ($fn =~ /^cluster\.pl$/ || $fn =~ /\.pm$/) {
-                       my $f = new IO::File $fn or next;
+                       my $f = new IO::File "$main::root/perl/$fn" or next;
                        while (<$f>) {
                                if (/^#\s+\$Id:\s+[\w\._]+,v\s+(\d+\.\d+)/ ) {
                                        $build += $1;