From 23af81d0d1014031815607ff2bbd8e4cab6f5060 Mon Sep 17 00:00:00 2001
From: short <>
Date: Tue, 7 Oct 2003 07:08:47 +0000
Subject: [PATCH] +mandatory Ids

---
 Web.pm | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/Web.pm b/Web.pm
index 41aaef2..3d4104e 100644
--- 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"});
 		}
-- 
1.8.3.1