Comment 6 for bug 646647

In version 1.4-193.lucid.25 of xtrabackup the error is on line 1708 of innobackupex-1.5.1

This line is from revision 7 from vadim@p according to a bzr annotate innobackupex-1.5.1.

In rev 79 kinoyas changed something about the $perl_version var which is used on line which generates the error.

The error is in ghe check_args subroutine and happens when innobackupex-1.5.1 is called w/o arguments.

Her is the output from bzr ann:

                | # check the version of the perl we are running
                | if (!defined $^V) {
                | # this perl is prior to 5.6.0 and uses old style version string
                | my $required_version = $required_perl_version_old_style;
                | if ($] lt $required_version) {
22 kinoyas | print STDERR "$prefix Warning: " .
7 vadim@p | "Your perl is too old! Innobackup requires\n";
22 kinoyas | print STDERR "$prefix Warning: perl $required_version or newer!\n";
7 vadim@p | }
                | } else {
79 kinoyas | $perl_version = chr($required_perl_version[0])
                | . chr($required_perl_version[1])
                | . chr($required_perl_version[2]);
7 vadim@p | if ($^V lt $perl_version) {
                | my $version = chr(48 + $required_perl_version[0])
                | . "." . chr(48 + $required_perl_version[1])
                | . "." . chr(48 + $required_perl_version[2]);
22 kinoyas | print STDERR "$prefix Warning: " .
7 vadim@p | "Your perl is too old! Innobackup requires\n";
22 kinoyas | print STDERR "$prefix Warning: perl $version or newer!\n";
7 vadim@p | }
                | }