Fixed forgotten missing: Wrequire 'My::Hash::Readonly';
authorshort <>
Sun, 18 Sep 2005 18:31:49 +0000 (18:31 +0000)
committershort <>
Sun, 18 Sep 2005 18:31:49 +0000 (18:31 +0000)
Web.pm

diff --git a/Web.pm b/Web.pm
index 8422d21..e4c5df0 100644 (file)
--- a/Web.pm
+++ b/Web.pm
@@ -241,6 +241,7 @@ my($class,%args)=@_;
                                "_remote_ip"=>sub { return $W->{"r"}->connection()->remote_ip(); },
                                }),
                        );
+       Wrequire 'My::Hash::Readonly';
        $W->{"headers_in"}=My::Hash::Readonly->new($W->{"headers_in"});
        
        if ($W->{"r"}->method() eq "GET" || $W->{"r"}->method() eq "HEAD") {