]> dxcluster.org Git - spider.git/commitdiff
fix pathname
authorminima <minima>
Thu, 15 Mar 2001 00:39:52 +0000 (00:39 +0000)
committerminima <minima>
Thu, 15 Mar 2001 00:39:52 +0000 (00:39 +0000)
cmd/show/version.pl

index c4593b934002e9257cd057d695627d036a40fd4f..da72e305938cb3b263623be2578791738629ab12 100644 (file)
@@ -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;