git://git.jankratochvil.net
/
MyWeb.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
a8f5bac
)
+mandatory Ids
author
short
<>
Tue, 7 Oct 2003 07:08:47 +0000
(07:08 +0000)
committer
short
<>
Tue, 7 Oct 2003 07:08:47 +0000
(07:08 +0000)
Web.pm
patch
|
blob
|
history
diff --git
a/Web.pm
b/Web.pm
index
41aaef2
..
3d4104e
100644
(file)
--- a/
Web.pm
+++ b/
Web.pm
@@
-268,6
+268,17
@@
sub footer (;$)
print "</p>\n";
}
print "</p>\n";
}
+ for my $package (
+ $W->{"__PACKAGE__"},
+ __PACKAGE__,
+ @{$W->{"packages_used"}{$Apache::Registry::curstash}},
+ ) {
+ my $cvs_id=(eval('$'.$package."::CVS_ID")
+# || $package # debug
+ );
+ print '<!-- $'.$cvs_id.'$ -->'."\n" if $cvs_id;
+ }
+
if ($W->{"heading"}) {
do { &{$_}() if $_; } for ($W->{"footing"});
}
if ($W->{"heading"}) {
do { &{$_}() if $_; } for ($W->{"footing"});
}