From: Frank Brehm Date: Thu, 7 May 2009 15:34:57 +0000 (+0000) Subject: Bugfix in Doku X-Git-Url: https://git.uhu-banane.org/?a=commitdiff_plain;h=5aa952a1e380517383c31e35704a3f6d3bd52077;p=my-stuff%2Fsql-parse.git Bugfix in Doku git-svn-id: http://svn.brehm-online.com/svn/my-stuff/sql-parse/trunk@34 ec8d2aa5-1599-4edb-8739-2b3a1bc399aa --- diff --git a/lib/Text/Parse/SQL.pm b/lib/Text/Parse/SQL.pm index 7f2d812..a49ac80 100644 --- a/lib/Text/Parse/SQL.pm +++ b/lib/Text/Parse/SQL.pm @@ -22,7 +22,7 @@ All quotings will preserved. use Text::Parse::SQL; - my $parser = new Text::Parse::SQL( 'terminator' => ';', 'remove_block_comments' => 1 ); + my $parser = new Text::Parse::SQL( { 'terminator' => ';', 'remove_block_comments' => 1, } ); my $statements = $parser->parse_file( 'create_db.sql' ); =cut