projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
f884903
)
fix pathname
author
minima
<minima>
Thu, 15 Mar 2001 00:39:52 +0000
(
00:39
+0000)
committer
minima
<minima>
Thu, 15 Mar 2001 00:39:52 +0000
(
00:39
+0000)
cmd/show/version.pl
patch
|
blob
|
history
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;