Trace REQUEST_URI to STDERR to be able to track bugs to requests.

diff --git a/Web.pm b/Web.pm
index e41a314..0d4625b 100644 (file)
--- a/Web.pm
+++ b/Web.pm
@@ -95,6 +95,8 @@ sub init ($%)
 {
 my($class,%args)=@_;
 
+       print STDERR "$class->init ".$ENV{"REQUEST_URI"}."\n";
+
        my $packages_used_save=$W->{"packages_used"};
        $W={ %WebConfig,%args };        # override %WebConfig settings
        $W->{"packages_used"}=$packages_used_save;