mirror of
https://github.com/MariaDB/server.git
synced 2025-07-30 16:24:05 +03:00
Merge XtraDB from Percona Server 5.1.54-12.5 into MariaDB.
This commit is contained in:
16
mysql-test/suite/percona/slow_extended.patch/grep.inc
Normal file
16
mysql-test/suite/percona/slow_extended.patch/grep.inc
Normal file
@ -0,0 +1,16 @@
|
||||
perl;
|
||||
|
||||
$file = $ENV{'grep_file'};
|
||||
$pattern = $ENV{'grep_pattern'};
|
||||
|
||||
open(FILE, "$file")
|
||||
or die("Cannot open file $file: $!\n");
|
||||
|
||||
$lines = 0;
|
||||
while(<FILE>) {
|
||||
$lines++ if (/$pattern/);
|
||||
}
|
||||
print "$lines\n";
|
||||
|
||||
close(FILE);
|
||||
EOF
|
Reference in New Issue
Block a user