System error

error:  Can't call method "basename" without a package or object reference at /home/mengwong/www.mengwong.com/photography/bm2001/allthumbs.html line 8.
context: 
... 
4:  <DIV ALIGN=CENTER>
5:  <H1>All Thumbnails</H1>
6: 
7:  <%init>
8:  my @rolls = map { basename $_ } sort glob ($m->current_comp->source_dir . "/roll??");
9:  </%init>
10: 
11:  <P>
12:  % foreach my $roll (@rolls) {
... 
code stack:  /home/mengwong/www.mengwong.com/photography/bm2001/allthumbs.html:8
/home/mengwong/www.mengwong.com/photography/bm2001/autohandler:61
raw error






























Can't call method "basename" without a package or object reference at /home/mengwong/www.mengwong.com/photography/bm2001/allthumbs.html line 8.


Trace begun at /usr/share/perl5/HTML/Mason/Exceptions.pm line 129
HTML::Mason::Exceptions::rethrow_exception('Can\'t call method "basename" without a package or object reference at /home/mengwong/www.mengwong.com/photography/bm2001/allthumbs.html line 8.^J') called at /home/mengwong/www.mengwong.com/photography/bm2001/allthumbs.html line 8
HTML::Mason::Commands::__ANON__ at /usr/share/perl5/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0xec4bf8)') called at /usr/share/perl5/HTML/Mason/Request.pm line 1278
eval {...} at /usr/share/perl5/HTML/Mason/Request.pm line 1268
HTML::Mason::Request::comp(undef, undef) called at /home/mengwong/www.mengwong.com/photography/bm2001/autohandler line 61
HTML::Mason::Commands::__ANON__ at /usr/share/perl5/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x9e3e98)') called at /usr/share/perl5/HTML/Mason/Request.pm line 1276
eval {...} at /usr/share/perl5/HTML/Mason/Request.pm line 1268
HTML::Mason::Request::comp(undef, undef, undef) called at /usr/share/perl5/HTML/Mason/Request.pm line 467
eval {...} at /usr/share/perl5/HTML/Mason/Request.pm line 467
eval {...} at /usr/share/perl5/HTML/Mason/Request.pm line 419
HTML::Mason::Request::exec('HTML::Mason::Request::CGI=HASH(0xec3fc8)') called at /usr/share/perl5/HTML/Mason/CGIHandler.pm line 193
eval {...} at /usr/share/perl5/HTML/Mason/CGIHandler.pm line 193
HTML::Mason::Request::CGI::exec('HTML::Mason::Request::CGI=HASH(0xec3fc8)') called at /usr/share/perl5/HTML/Mason/Interp.pm line 342
HTML::Mason::Interp::exec(undef, undef) called at /usr/share/perl5/HTML/Mason/CGIHandler.pm line 124
eval {...} at /usr/share/perl5/HTML/Mason/CGIHandler.pm line 124
HTML::Mason::CGIHandler::_handler('HTML::Mason::CGIHandler=HASH(0xcf2ce8)', 'HASH(0xec4058)') called at mason.fcgi line 77
eval {...} at mason.fcgi line 71