Hello!

I'm new to Catalyst and now I try to make the example "Catalyst
Tutorial - Part 2: Catalyst Application Development Basics" (
Catalyst::Manual::Tutorial::CatalystBasics) run on for me (on a
windows machine with ActivePerl).

However, I'm getting following exception, when I connect to
http://localhost:3000/books/list:

Caught exception in MyApp::Controller::Books->list "Can't use string
("AutoCommit") as a HASH ref while "strict refs" in use at
D:/Perl/site/lib/DBI.pm line 553."


The configuation data is given below.

TIA for any hint

Dmitri Pissarenko

P. S.: Here is the full error report:

Request

bless({
 action           => "books/list",
 address          => "127.0.0.1",
 arguments        => [],
 base             => bless(do{\(my $o = "http://localhost:3000/";)},
"URI::http"),
 body_parameters  => {},
 captures         => [],
 cookies          => {
                       "MANTIS_VIEW_ALL_COOKIE" => bless({ name =>
"MANTIS_VIEW_ALL_COOKIE", path => "/", value => [1] },
"CGI::Simple::Cookie"),
                       wikidbLoggedOut          => bless({ name =>
"wikidbLoggedOut", path => "/", value => ["20070430135728"] },
"CGI::Simple::Cookie"),
                       wikidbUserName           => bless({
                                                     name  => "wikidbUserName",
                                                     path  => "/",
                                                     value =>
["\xD0\x94\xD0\x90\xD0\x9F"],
                                                   }, "CGI::Simple::Cookie"),
                     },
 headers          => bless({
                       "accept" =>
"text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5",
                       "accept-charset" => "ISO-8859-1,utf-8;q=0.7,*;q=0.7",
                       "accept-encoding" => "gzip,deflate",
                       "accept-language" => "en-us,en;q=0.5",
                       connection => "keep-alive",
                       cookie => "wikidbUserName=%D0%94%D0%90%D0%9F;
MANTIS_VIEW_ALL_COOKIE=1; wikidbLoggedOut=20070430135728",
                       host => "localhost:3000",
                       "keep-alive" => 300,
                       "user-agent" => "Mozilla/5.0 (Windows; U;
Windows NT 5.1; en-US; rv:1.7.12) Gecko/20050915 Firefox/1.0.7",
                     }, "HTTP::Headers"),
 hostname         => "localhost",
 match            => "books/list",
 method           => "GET",
 parameters       => {},
 path             => "books/list",
 protocol         => "HTTP/1.0",
 query_parameters => {},
 secure           => 0,
 uploads          => {},
 uri              => bless(do{\(my $o =
"http://localhost:3000/books/list";)}, "URI::http"),
 user             => undef,
}, "Catalyst::Request")

Response

bless({
 body    => "",
 cookies => {},
 headers => bless({
              "content-type" => "text/html; charset=utf-8",
              "x-catalyst"   => "5.7006",
            }, "HTTP::Headers"),
 status  => 200,
}, "Catalyst::Response")

Stash

{}

Config

do {
 my $a = {
   home => 
"C:\\work\\business\\prog\\i5invest\\2007_04_30_sampleAppI5invest\\MyApp",
   name => "MyApp",
   root => bless({
         dirs => [
               "",
               "work",
               "business",
               "prog",
               "i5invest",
               "2007_04_30_sampleAppI5invest",
               "MyApp",
               "root",
             ],
         file_spec_class => undef,
         volume => "C:",
       }, "Path::Class::Dir"),
   stacktrace => { context => 3, verbose => 0 },
   static => {
         debug => 1,
         dirs => [],
         ignore_dirs => [],
         ignore_extensions => ["tmpl", "tt", "tt2", "html", "xhtml"],
         include_path => ['fix'],
         mime_types => {},
         no_logs => 1,
       },
 };
 $a->{static}{include_path}[0] = $a->{root};
 $a;
}

P. P. S.: Here is the output of "perl -v":

C:\work\business\prog\i5invest\2007_04_30_sampleAppI5invest\MyApp>perl -v

This is perl, v5.8.4 built for MSWin32-x86-multi-thread
(with 3 registered patches, see perl -V for more detail)

Copyright 1987-2004, Larry Wall

Binary build 810 provided by ActiveState Corp. http://www.ActiveState.com
ActiveState is a division of Sophos.
Built Jun  1 2004 11:52:21

Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using `man perl' or `perldoc perl'.  If you have access to the
Internet, point your browser at http://www.perl.com/, the Perl Home Page.

_______________________________________________
List: [email protected]
Listinfo: http://lists.rawmode.org/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/[email protected]/
Dev site: http://dev.catalyst.perl.org/

Reply via email to