[NUUG fiksgatami] Stuck setting up our fixmystreet copy - strange error

[Petter Reinholdtsen]

[Petter Reinholdtsen]
> I found it hard to believe, as bless should be an internal perl
> function, and might have gotten it worng.
> 
> I tried tracing it a bit, and ended up in the AUTOLOAD function and
> did not really understand how it could fail.  Any clues to spare?

I got a bit further, but is still quite lost.  I now know that the
call to AUTOLOAD is to construct the DESTROY function, and that this
happen outside the mySociety::Web::new() function.  Here are the two
backtraces, one before the call to bless, and the next after it.

  DB<6> s
mySociety::Web::new(/media/usb0/fixmystreet/web/../../perllib/mySociety/Web.pm:60):
60:         my $retval = bless($self, $class);
  DB<6> T
$ = mySociety::Web::new('mySociety::Web') called from file
  `/media/usb0/fixmystreet/web/../perllib/Page.pm' line 53
. = Page::__ANON__[/media/usb0/fixmystreet/web/../perllib/Page.pm:61]()
  called from file `/usr/share/perl5/Error.pm' line 416
$ = eval {...} called from file `/usr/share/perl5/Error.pm' line 408
. = Error::subs::try(ref(CODE), ref(HASH)) called from file
  `/media/usb0/fixmystreet/web/../perllib/Page.pm' line 76
. = Page::do_fastcgi(ref(CODE)) called from file
  `/media/usb0/fixmystreet/web/index.cgi' line 94
  DB<6> s
mySociety::Web::AUTOLOAD(/media/usb0/fixmystreet/web/../../perllib/mySociety/Web.pm:82):
82:         my $f = $mySociety::Web::AUTOLOAD;
  DB<6> T
. = mySociety::Web::AUTOLOAD(ref(mySociety::Web)) called from file
  `/media/usb0/fixmystreet/web/../../perllib/mySociety/Web.pm' line 60
. = eval {...} called from file
  `/media/usb0/fixmystreet/web/../../perllib/mySociety/Web.pm' line 60
. = Error::subs::try(ref(CODE), ref(HASH)) called from file
  `/media/usb0/fixmystreet/web/../perllib/Page.pm' line 76
. = Page::do_fastcgi(ref(CODE)) called from file
  `/media/usb0/fixmystreet/web/index.cgi' line 94
  DB<6>

I do not understand what is going wrong here. :/

Happy hacking,
-- 
Petter Reinholdtsen