From: Arthur Axel 'fREW' Schmidt Date: Wed, 19 May 2010 06:51:17 +0000 (-0500) Subject: No longer need to match the first part of a file X-Git-Tag: v0.001000_11~6 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=398b13859e8cb5ba7fbeb3135b54446dac43cddd;p=dbsrgits%2FDBIx-Class-DeploymentHandler.git No longer need to match the first part of a file --- diff --git a/lib/DBIx/Class/DeploymentHandler/DeployMethod/SQL/Translator.pm b/lib/DBIx/Class/DeploymentHandler/DeployMethod/SQL/Translator.pm index 4eb5c6f..b43b070 100644 --- a/lib/DBIx/Class/DeploymentHandler/DeployMethod/SQL/Translator.pm +++ b/lib/DBIx/Class/DeploymentHandler/DeployMethod/SQL/Translator.pm @@ -180,7 +180,7 @@ method _run_sql_and_perl($filenames) { } $storage->_query_end($line); } - } elsif ( $filename =~ /^(.+)\.pl$/ ) { + } elsif ( $filename =~ /\.pl$/ ) { log_debug { "[DBICDH] Running Perl from $filename" }; my $filedata = do { local( @ARGV, $/ ) = $filename; <> };