From 5aa952a1e380517383c31e35704a3f6d3bd52077 Mon Sep 17 00:00:00 2001 From: Frank Brehm Date: Thu, 7 May 2009 15:34:57 +0000 Subject: [PATCH] Bugfix in Doku git-svn-id: http://svn.brehm-online.com/svn/my-stuff/sql-parse/trunk@34 ec8d2aa5-1599-4edb-8739-2b3a1bc399aa --- lib/Text/Parse/SQL.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 2.39.5