diff --git a/testing/dav_test b/testing/dav_test index 128b678e..fc6cd48a 100755 --- a/testing/dav_test +++ b/testing/dav_test @@ -203,13 +203,13 @@ while( ) { $state = "PERL"; }; - $line =~ /^GETSQL\s*=\s*(\S.*)$/ && do { + $line =~ /^(?:BEGIN)?GETSQL\s*=\s*(\S.*)$/ && do { $sql_variable = $1; $sql_statement = ""; $state = "SQL"; }; - $line =~ /^DOSQL\s*$/ && do { + $line =~ /^(?:BEGIN)?DOSQL\s*$/ && do { $sql_statement = ""; $state = "DOSQL"; }; @@ -221,7 +221,7 @@ while( ) { }; }; - $line =~ /^QUERY\s*$/ && do { + $line =~ /^(?:BEGIN)?QUERY\s*$/ && do { $sql_statement = ""; $state = "QUERY"; };