fix pathname

diff --git a/cmd/show/version.pl b/cmd/show/version.pl
index c4593b934002e9257cd057d695627d036a40fd4f..da72e305938cb3b263623be2578791738629ab12 100644 (file)
--- a/cmd/show/version.pl
+++ b/cmd/show/version.pl
@@ -14,7 +14,7 @@ if (opendir(DIR, "$main::root/perl")) {
        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;