projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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 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$/) {
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;
while (<$f>) {
if (/^#\s+\$Id:\s+[\w\._]+,v\s+(\d+\.\d+)/ ) {
$build += $1;