Add lib/, t/lib/, and sandbox/. All modules are updated and passing on MySQL 5.1.

2025-10-18 00:14:12 +00:00 · 2011-06-24 11:22:06 -06:00
parent 01e0175ad9
commit 6c501128e6
567 changed files with 335952 additions and 0 deletions
--- a/lib/VersionParser.pm
+++ b/lib/VersionParser.pm
@@ -0,0 +1,103 @@
+# This program is copyright 2011 Percona Inc.
+# This program is copyright 2007-2009 Baron Schwartz.
+# Feedback and improvements are welcome.
+#
+# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
+# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
+# MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+#
+# This program is free software; you can redistribute it and/or modify it under
+# the terms of the GNU General Public License as published by the Free Software
+# Foundation, version 2; OR the Perl Artistic License.  On UNIX and similar
+# systems, you can issue `man perlgpl' or `man perlartistic' to read these
+# licenses.
+#
+# You should have received a copy of the GNU General Public License along with
+# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
+# Place, Suite 330, Boston, MA  02111-1307  USA.
+# ###########################################################################
+# VersionParser package $Revision: 6667 $
+# ###########################################################################
+
+# Package: VersionParser
+# VersionParser parses a MySQL version string.
+{
+package VersionParser;
+
+use strict;
+use warnings FATAL => 'all';
+use English qw(-no_match_vars);
+use constant MKDEBUG => $ENV{MKDEBUG} || 0;
+
+sub new {
+   my ( $class ) = @_;
+   bless {}, $class;
+}
+
+sub parse {
+   my ( $self, $str ) = @_;
+   my $result = sprintf('%03d%03d%03d', $str =~ m/(\d+)/g);
+   MKDEBUG && _d($str, 'parses to', $result);
+   return $result;
+}
+
+# Compares versions like 5.0.27 and 4.1.15-standard-log.  Caches version number
+# for each DBH for later use.
+sub version_ge {
+   my ( $self, $dbh, $target ) = @_;
+   if ( !$self->{$dbh} ) {
+      $self->{$dbh} = $self->parse(
+         $dbh->selectrow_array('SELECT VERSION()'));
+   }
+   my $result = $self->{$dbh} ge $self->parse($target) ? 1 : 0;
+   MKDEBUG && _d($self->{$dbh}, 'ge', $target, ':', $result);
+   return $result;
+}
+
+# Returns DISABLED if InnoDB doesn't appear as YES or DEFAULT in SHOW ENGINES,
+# BUILTIN if there is no innodb_version variable in SHOW VARIABLES, or
+# <value> if there is an innodb_version variable in SHOW VARIABLES, or
+# NO if SHOW ENGINES is broken or InnDB doesn't appear in it.
+sub innodb_version {
+   my ( $self, $dbh ) = @_;
+   return unless $dbh;
+   my $innodb_version = "NO";
+
+   my ($innodb) =
+      grep { $_->{engine} =~ m/InnoDB/i }
+      map  {
+         my %hash;
+         @hash{ map { lc $_ } keys %$_ } = values %$_;
+         \%hash;
+      }
+      @{ $dbh->selectall_arrayref("SHOW ENGINES", {Slice=>{}}) };
+   if ( $innodb ) {
+      MKDEBUG && _d("InnoDB support:", $innodb->{support});
+      if ( $innodb->{support} =~ m/YES|DEFAULT/i ) {
+         my $vars = $dbh->selectrow_hashref(
+            "SHOW VARIABLES LIKE 'innodb_version'");
+         $innodb_version = !$vars ? "BUILTIN"
+                         :          ($vars->{Value} || $vars->{value});
+      }
+      else {
+         $innodb_version = $innodb->{support};  # probably DISABLED or NO
+      }
+   }
+
+   MKDEBUG && _d("InnoDB version:", $innodb_version);
+   return $innodb_version;
+}
+
+sub _d {
+   my ($package, undef, $line) = caller 0;
+   @_ = map { (my $temp = $_) =~ s/\n/\n# /g; $temp; }
+        map { defined $_ ? $_ : 'undef' }
+        @_;
+   print STDERR "# $package:$line $PID ", join(' ', @_), "\n";
+}
+
+1;
+}
+# ###########################################################################
+# End VersionParser package
+# ###########################################################################