[Catalyst] Catalyst::Plugin::ConfigLoader snag [and SOLVED]

[will at serensoft.com]

Found a snag in Catalyst::Plugin::ConfigLoader (v0.27, also looks like it
applied to 0.28) on line 186:

186:        my ( $extension ) =3D ( $path =3D~ m{\.(.{1,4})$} );

We created our app via "catalyst.pl QX", and all was well and good until we
started deploying versioned instances where the version number was part of
the directory name:

..../QX-0.9.5/qx

The $extension on line 186 now is "5/qx" which of course isn't a legal
config-type file extension. The error message is:

    Unable to handle files with the extension '5/qx' at
/usr/share/perl5/Catalyst/Plugin/ConfigLoader.pm line 141.
    Compilation failed in require at script/qx_server.pl line 55.

How about

186:        my ( $extension ) =3D ( $path =3D~ m{\.([^./]{1,4})$} );

instead?

-- =

will trillich
"I just try to make sure that the laziest thing I can do at any moment is
what I should be doing." -- matt.might.net
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.scsys.co.uk/pipermail/catalyst/attachments/20100819/5b393=
1cc/attachment.htm