+mandatory Ids

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";
                }
 
+       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"});
                }