diff options
| author | unknown <tim@threads.polyesthetic.msg> | 2001-02-05 22:21:36 -0500 |
|---|---|---|
| committer | unknown <tim@threads.polyesthetic.msg> | 2001-02-05 22:21:36 -0500 |
| commit | 6dcdc303c0321634ebfb232efaae3cd372551736 (patch) | |
| tree | 6c32b646a0294df942b0f8c445b0b09cf649d0c2 /sql-bench/crash-me.sh | |
| parent | c8908b8fd1d23b9b5fd5681b018c1bebe1957a32 (diff) | |
| download | mariadb-git-6dcdc303c0321634ebfb232efaae3cd372551736.tar.gz | |
Perl cleanups in sql-bench.
Thanks to Chris Richmond MD6-FDC <crichmon@pcocd2.intel.com> for the
patch.
sql-bench/crash-me.sh:
fix bug with $limits{create_index} handling.
fix typo (result_type -> $result_type).
sql-bench/server-cfg.sh:
fix uninitialized variable warning.
Diffstat (limited to 'sql-bench/crash-me.sh')
| -rw-r--r-- | sql-bench/crash-me.sh | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/sql-bench/crash-me.sh b/sql-bench/crash-me.sh index 27b908be5aa..74226e1ff48 100644 --- a/sql-bench/crash-me.sh +++ b/sql-bench/crash-me.sh @@ -1,4 +1,4 @@ -#!@PERL@ +#!@PERL@ -w # Copyright (C) 2000 MySQL AB & MySQL Finland AB & TCX DataKonsult AB # # This library is free software; you can redistribute it and/or @@ -1333,8 +1333,7 @@ report("index in create table",'index_in_create', # The following must be executed as we need the value of end_drop_keyword # later -if (! defined($limits{'create_index'}) && - ! defined($limits{'drop_index'}) ) +if (defined($limits{'create_index'}) && defined($limits{'drop_index'})) { if ($res=safe_query("create index crash_q on crash_me (a)")) { @@ -2659,7 +2658,7 @@ sub safe_query_result $sth->finish; return ($result_type == 8) ? 0 : 1; } - if(result_type == 8) { + if($result_type == 8) { $sth->finish; return 1; } |