+middleman

diff --git a/Project.pm b/Project.pm
index 7628b91..6fed111 100644 (file)
--- a/Project.pm
+++ b/Project.pm
@@ -30,8 +30,8 @@ our @EXPORT=qw();
 our @ISA=qw(My::Web Exporter);
 
 
-use constant ENTRIES    =>top_dir()."/project/CVS/Entries";
-use constant ENTRIES_LOG=>top_dir()."/project/CVS/Entries.Log";
+sub ENTRIES     { return top_dir()."/project/CVS/Entries"; }
+sub ENTRIES_LOG { return top_dir()."/project/CVS/Entries.Log"; }
 
 
 sub print_project ($)
@@ -196,7 +196,7 @@ table.print_project td { vertical-align: top; }
 sub item_hash_read ()
 {
        my %dirs;
-       for my $ENTRIES (ENTRIES,ENTRIES_LOG) {
+       for my $ENTRIES (ENTRIES(),ENTRIES_LOG()) {
                local *E;
                next if !open E,$ENTRIES;
                while (<E>) {

diff --git a/Web.pm b/Web.pm
index 845e96c..4436247 100644 (file)
--- a/Web.pm
+++ b/Web.pm
@@ -276,7 +276,7 @@ sub footer (;$)
                my $cvs_id=(eval('$'.$package."::CVS_ID")
 #                              || $package     # debug
                                );
-               print '<!-- $'.$cvs_id.'$ -->'."\n" if $cvs_id;
+               print '<!-- '.$package.' - $'.$cvs_id.'$ -->'."\n" if $cvs_id;
                }
 
        if ($W->{"heading"}) {