On 19 Aug 2010, at 22:17, [email protected] wrote:
How about186: my ( $extension ) = ( $path =~ m{\.([^./]{1,4})$} ); instead?
Sure. Could you write a failing test for this? Cheers t0m _______________________________________________ List: [email protected] Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst Searchable archive: http://www.mail-archive.com/[email protected]/ Dev site: http://dev.catalyst.perl.org/
