percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-25 05:44:59 +00:00
Code Issues Packages Projects Releases Wiki Activity

Merge fix-set-vars-bug-1182856.

Browse Source
This commit is contained in:
Daniel Nichter
2013-06-25 15:37:57 -07:00
parent 68511cc926 0ec803417d
commit 1d1fae9375
28 changed files with 96 additions and 54 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
bin/pt-agent
View File

@@ -3560,7 +3560,7 @@ sub set_vars {
if ( $user_vars ) { if ( $user_vars ) {
foreach my $var_val ( @$user_vars ) { foreach my $var_val ( @$user_vars ) {
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$user_vars{$var} = { $user_vars{$var} = {
val => $val, val => $val,
default => 0, default => 0,
@@ -3574,7 +3574,7 @@ sub set_vars {
%default_vars = map { %default_vars = map {
my $var_val = $_; my $var_val = $_;
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$var => { $var => {
val => $val, val => $val,
default => 1, default => 1,

4
bin/pt-align
View File

@@ -1028,7 +1028,7 @@ sub set_vars {
if ( $user_vars ) { if ( $user_vars ) {
foreach my $var_val ( @$user_vars ) { foreach my $var_val ( @$user_vars ) {
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$user_vars{$var} = { $user_vars{$var} = {
val => $val, val => $val,
default => 0, default => 0,
@@ -1042,7 +1042,7 @@ sub set_vars {
%default_vars = map { %default_vars = map {
my $var_val = $_; my $var_val = $_;
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$var => { $var => {
val => $val, val => $val,
default => 1, default => 1,

4
bin/pt-archiver
View File

@@ -1755,7 +1755,7 @@ sub set_vars {
if ( $user_vars ) { if ( $user_vars ) {
foreach my $var_val ( @$user_vars ) { foreach my $var_val ( @$user_vars ) {
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$user_vars{$var} = { $user_vars{$var} = {
val => $val, val => $val,
default => 0, default => 0,
@@ -1769,7 +1769,7 @@ sub set_vars {
%default_vars = map { %default_vars = map {
my $var_val = $_; my $var_val = $_;
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$var => { $var => {
val => $val, val => $val,
default => 1, default => 1,

4
bin/pt-config-diff
View File

@@ -1755,7 +1755,7 @@ sub set_vars {
if ( $user_vars ) { if ( $user_vars ) {
foreach my $var_val ( @$user_vars ) { foreach my $var_val ( @$user_vars ) {
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$user_vars{$var} = { $user_vars{$var} = {
val => $val, val => $val,
default => 0, default => 0,
@@ -1769,7 +1769,7 @@ sub set_vars {
%default_vars = map { %default_vars = map {
my $var_val = $_; my $var_val = $_;
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$var => { $var => {
val => $val, val => $val,
default => 1, default => 1,

4
bin/pt-deadlock-logger
View File

@@ -1105,7 +1105,7 @@ sub set_vars {
if ( $user_vars ) { if ( $user_vars ) {
foreach my $var_val ( @$user_vars ) { foreach my $var_val ( @$user_vars ) {
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$user_vars{$var} = { $user_vars{$var} = {
val => $val, val => $val,
default => 0, default => 0,
@@ -1119,7 +1119,7 @@ sub set_vars {
%default_vars = map { %default_vars = map {
my $var_val = $_; my $var_val = $_;
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$var => { $var => {
val => $val, val => $val,
default => 1, default => 1,

4
bin/pt-diskstats
View File

@@ -1101,7 +1101,7 @@ sub set_vars {
if ( $user_vars ) { if ( $user_vars ) {
foreach my $var_val ( @$user_vars ) { foreach my $var_val ( @$user_vars ) {
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$user_vars{$var} = { $user_vars{$var} = {
val => $val, val => $val,
default => 0, default => 0,
@@ -1115,7 +1115,7 @@ sub set_vars {
%default_vars = map { %default_vars = map {
my $var_val = $_; my $var_val = $_;
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$var => { $var => {
val => $val, val => $val,
default => 1, default => 1,

4
bin/pt-duplicate-key-checker
View File

@@ -2087,7 +2087,7 @@ sub set_vars {
if ( $user_vars ) { if ( $user_vars ) {
foreach my $var_val ( @$user_vars ) { foreach my $var_val ( @$user_vars ) {
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$user_vars{$var} = { $user_vars{$var} = {
val => $val, val => $val,
default => 0, default => 0,
@@ -2101,7 +2101,7 @@ sub set_vars {
%default_vars = map { %default_vars = map {
my $var_val = $_; my $var_val = $_;
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$var => { $var => {
val => $val, val => $val,
default => 1, default => 1,

4
bin/pt-fifo-split
View File

@@ -1029,7 +1029,7 @@ sub set_vars {
if ( $user_vars ) { if ( $user_vars ) {
foreach my $var_val ( @$user_vars ) { foreach my $var_val ( @$user_vars ) {
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$user_vars{$var} = { $user_vars{$var} = {
val => $val, val => $val,
default => 0, default => 0,
@@ -1043,7 +1043,7 @@ sub set_vars {
%default_vars = map { %default_vars = map {
my $var_val = $_; my $var_val = $_;
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$var => { $var => {
val => $val, val => $val,
default => 1, default => 1,

4
bin/pt-find
View File

@@ -1521,7 +1521,7 @@ sub set_vars {
if ( $user_vars ) { if ( $user_vars ) {
foreach my $var_val ( @$user_vars ) { foreach my $var_val ( @$user_vars ) {
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$user_vars{$var} = { $user_vars{$var} = {
val => $val, val => $val,
default => 0, default => 0,
@@ -1535,7 +1535,7 @@ sub set_vars {
%default_vars = map { %default_vars = map {
my $var_val = $_; my $var_val = $_;
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$var => { $var => {
val => $val, val => $val,
default => 1, default => 1,

4
bin/pt-fingerprint
View File

@@ -1030,7 +1030,7 @@ sub set_vars {
if ( $user_vars ) { if ( $user_vars ) {
foreach my $var_val ( @$user_vars ) { foreach my $var_val ( @$user_vars ) {
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$user_vars{$var} = { $user_vars{$var} = {
val => $val, val => $val,
default => 0, default => 0,
@@ -1044,7 +1044,7 @@ sub set_vars {
%default_vars = map { %default_vars = map {
my $var_val = $_; my $var_val = $_;
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$var => { $var => {
val => $val, val => $val,
default => 1, default => 1,

4
bin/pt-fk-error-logger
View File

@@ -1100,7 +1100,7 @@ sub set_vars {
if ( $user_vars ) { if ( $user_vars ) {
foreach my $var_val ( @$user_vars ) { foreach my $var_val ( @$user_vars ) {
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$user_vars{$var} = { $user_vars{$var} = {
val => $val, val => $val,
default => 0, default => 0,
@@ -1114,7 +1114,7 @@ sub set_vars {
%default_vars = map { %default_vars = map {
my $var_val = $_; my $var_val = $_;
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$var => { $var => {
val => $val, val => $val,
default => 1, default => 1,

4
bin/pt-heartbeat
View File

@@ -1837,7 +1837,7 @@ sub set_vars {
if ( $user_vars ) { if ( $user_vars ) {
foreach my $var_val ( @$user_vars ) { foreach my $var_val ( @$user_vars ) {
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$user_vars{$var} = { $user_vars{$var} = {
val => $val, val => $val,
default => 0, default => 0,
@@ -1851,7 +1851,7 @@ sub set_vars {
%default_vars = map { %default_vars = map {
my $var_val = $_; my $var_val = $_;
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$var => { $var => {
val => $val, val => $val,
default => 1, default => 1,

4
bin/pt-index-usage
View File

@@ -1682,7 +1682,7 @@ sub set_vars {
if ( $user_vars ) { if ( $user_vars ) {
foreach my $var_val ( @$user_vars ) { foreach my $var_val ( @$user_vars ) {
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$user_vars{$var} = { $user_vars{$var} = {
val => $val, val => $val,
default => 0, default => 0,
@@ -1696,7 +1696,7 @@ sub set_vars {
%default_vars = map { %default_vars = map {
my $var_val = $_; my $var_val = $_;
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$var => { $var => {
val => $val, val => $val,
default => 1, default => 1,

4
bin/pt-kill
View File

@@ -1110,7 +1110,7 @@ sub set_vars {
if ( $user_vars ) { if ( $user_vars ) {
foreach my $var_val ( @$user_vars ) { foreach my $var_val ( @$user_vars ) {
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$user_vars{$var} = { $user_vars{$var} = {
val => $val, val => $val,
default => 0, default => 0,
@@ -1124,7 +1124,7 @@ sub set_vars {
%default_vars = map { %default_vars = map {
my $var_val = $_; my $var_val = $_;
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$var => { $var => {
val => $val, val => $val,
default => 1, default => 1,

4
bin/pt-online-schema-change
View File

@@ -1117,7 +1117,7 @@ sub set_vars {
if ( $user_vars ) { if ( $user_vars ) {
foreach my $var_val ( @$user_vars ) { foreach my $var_val ( @$user_vars ) {
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$user_vars{$var} = { $user_vars{$var} = {
val => $val, val => $val,
default => 0, default => 0,
@@ -1131,7 +1131,7 @@ sub set_vars {
%default_vars = map { %default_vars = map {
my $var_val = $_; my $var_val = $_;
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$var => { $var => {
val => $val, val => $val,
default => 1, default => 1,

4
bin/pt-query-digest
View File

@@ -2350,7 +2350,7 @@ sub set_vars {
if ( $user_vars ) { if ( $user_vars ) {
foreach my $var_val ( @$user_vars ) { foreach my $var_val ( @$user_vars ) {
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$user_vars{$var} = { $user_vars{$var} = {
val => $val, val => $val,
default => 0, default => 0,
@@ -2364,7 +2364,7 @@ sub set_vars {
%default_vars = map { %default_vars = map {
my $var_val = $_; my $var_val = $_;
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$var => { $var => {
val => $val, val => $val,
default => 1, default => 1,

4
bin/pt-show-grants
View File

@@ -1030,7 +1030,7 @@ sub set_vars {
if ( $user_vars ) { if ( $user_vars ) {
foreach my $var_val ( @$user_vars ) { foreach my $var_val ( @$user_vars ) {
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$user_vars{$var} = { $user_vars{$var} = {
val => $val, val => $val,
default => 0, default => 0,
@@ -1044,7 +1044,7 @@ sub set_vars {
%default_vars = map { %default_vars = map {
my $var_val = $_; my $var_val = $_;
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$var => { $var => {
val => $val, val => $val,
default => 1, default => 1,

4
bin/pt-slave-delay
View File

@@ -1103,7 +1103,7 @@ sub set_vars {
if ( $user_vars ) { if ( $user_vars ) {
foreach my $var_val ( @$user_vars ) { foreach my $var_val ( @$user_vars ) {
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$user_vars{$var} = { $user_vars{$var} = {
val => $val, val => $val,
default => 0, default => 0,
@@ -1117,7 +1117,7 @@ sub set_vars {
%default_vars = map { %default_vars = map {
my $var_val = $_; my $var_val = $_;
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$var => { $var => {
val => $val, val => $val,
default => 1, default => 1,

4
bin/pt-slave-find
View File

@@ -1038,7 +1038,7 @@ sub set_vars {
if ( $user_vars ) { if ( $user_vars ) {
foreach my $var_val ( @$user_vars ) { foreach my $var_val ( @$user_vars ) {
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$user_vars{$var} = { $user_vars{$var} = {
val => $val, val => $val,
default => 0, default => 0,
@@ -1052,7 +1052,7 @@ sub set_vars {
%default_vars = map { %default_vars = map {
my $var_val = $_; my $var_val = $_;
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$var => { $var => {
val => $val, val => $val,
default => 1, default => 1,

4
bin/pt-slave-restart
View File

@@ -1255,7 +1255,7 @@ sub set_vars {
if ( $user_vars ) { if ( $user_vars ) {
foreach my $var_val ( @$user_vars ) { foreach my $var_val ( @$user_vars ) {
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$user_vars{$var} = { $user_vars{$var} = {
val => $val, val => $val,
default => 0, default => 0,
@@ -1269,7 +1269,7 @@ sub set_vars {
%default_vars = map { %default_vars = map {
my $var_val = $_; my $var_val = $_;
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$var => { $var => {
val => $val, val => $val,
default => 1, default => 1,

4
bin/pt-table-checksum
View File

@@ -2784,7 +2784,7 @@ sub set_vars {
if ( $user_vars ) { if ( $user_vars ) {
foreach my $var_val ( @$user_vars ) { foreach my $var_val ( @$user_vars ) {
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$user_vars{$var} = { $user_vars{$var} = {
val => $val, val => $val,
default => 0, default => 0,
@@ -2798,7 +2798,7 @@ sub set_vars {
%default_vars = map { %default_vars = map {
my $var_val = $_; my $var_val = $_;
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$var => { $var => {
val => $val, val => $val,
default => 1, default => 1,

4
bin/pt-table-sync
View File

@@ -1118,7 +1118,7 @@ sub set_vars {
if ( $user_vars ) { if ( $user_vars ) {
foreach my $var_val ( @$user_vars ) { foreach my $var_val ( @$user_vars ) {
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$user_vars{$var} = { $user_vars{$var} = {
val => $val, val => $val,
default => 0, default => 0,
@@ -1132,7 +1132,7 @@ sub set_vars {
%default_vars = map { %default_vars = map {
my $var_val = $_; my $var_val = $_;
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$var => { $var => {
val => $val, val => $val,
default => 1, default => 1,

4
bin/pt-table-usage
View File

@@ -1467,7 +1467,7 @@ sub set_vars {
if ( $user_vars ) { if ( $user_vars ) {
foreach my $var_val ( @$user_vars ) { foreach my $var_val ( @$user_vars ) {
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$user_vars{$var} = { $user_vars{$var} = {
val => $val, val => $val,
default => 0, default => 0,
@@ -1481,7 +1481,7 @@ sub set_vars {
%default_vars = map { %default_vars = map {
my $var_val = $_; my $var_val = $_;
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$var => { $var => {
val => $val, val => $val,
default => 1, default => 1,

4
bin/pt-upgrade
View File

@@ -2347,7 +2347,7 @@ sub set_vars {
if ( $user_vars ) { if ( $user_vars ) {
foreach my $var_val ( @$user_vars ) { foreach my $var_val ( @$user_vars ) {
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$user_vars{$var} = { $user_vars{$var} = {
val => $val, val => $val,
default => 0, default => 0,
@@ -2361,7 +2361,7 @@ sub set_vars {
%default_vars = map { %default_vars = map {
my $var_val = $_; my $var_val = $_;
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$var => { $var => {
val => $val, val => $val,
default => 1, default => 1,

4
bin/pt-variable-advisor
View File

@@ -1107,7 +1107,7 @@ sub set_vars {
if ( $user_vars ) { if ( $user_vars ) {
foreach my $var_val ( @$user_vars ) { foreach my $var_val ( @$user_vars ) {
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$user_vars{$var} = { $user_vars{$var} = {
val => $val, val => $val,
default => 0, default => 0,
@@ -1121,7 +1121,7 @@ sub set_vars {
%default_vars = map { %default_vars = map {
my $var_val = $_; my $var_val = $_;
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$var => { $var => {
val => $val, val => $val,
default => 1, default => 1,

4
bin/pt-visual-explain
View File

@@ -1704,7 +1704,7 @@ sub set_vars {
if ( $user_vars ) { if ( $user_vars ) {
foreach my $var_val ( @$user_vars ) { foreach my $var_val ( @$user_vars ) {
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$user_vars{$var} = { $user_vars{$var} = {
val => $val, val => $val,
default => 0, default => 0,
@@ -1718,7 +1718,7 @@ sub set_vars {
%default_vars = map { %default_vars = map {
my $var_val = $_; my $var_val = $_;
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$var => { $var => {
val => $val, val => $val,
default => 1, default => 1,

4
lib/OptionParser.pm
View File

@@ -1289,7 +1289,7 @@ sub set_vars {
if ( $user_vars ) { if ( $user_vars ) {
foreach my $var_val ( @$user_vars ) { foreach my $var_val ( @$user_vars ) {
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$user_vars{$var} = { $user_vars{$var} = {
val => $val, val => $val,
default => 0, default => 0,
@@ -1303,7 +1303,7 @@ sub set_vars {
%default_vars = map { %default_vars = map {
my $var_val = $_; my $var_val = $_;
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/; my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val; die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$var => { $var => {
val => $val, val => $val,
default => 1, default => 1,

42
t/lib/OptionParser.t
View File

@@ -2021,6 +2021,48 @@ is(
"Non-zero exit status on error parsing options (bug 1039074)" "Non-zero exit status on error parsing options (bug 1039074)"
); );
# #############################################################################
# --set-vars/set_vars()
# #############################################################################
@ARGV = qw();
$o = new OptionParser(file => "$trunk/bin/pt-archiver");
$o->get_specs();
$o->get_opts();
my $vars = $o->set_vars("$trunk/bin/pt-archiver");
is_deeply(
$vars,
{
wait_timeout => {
default => 1,
val => '10000',
},
},
"set_vars(): 1 default from docs"
) or diag(Dumper($vars));
# Bug 1182856: Zero values causes "Invalid --set-vars value: var=0"
@ARGV = qw(--set-vars SQL_LOG_BIN=0);
$o->get_opts();
$vars = $o->set_vars("$trunk/bin/pt-archiver");
is_deeply(
$vars,
{
wait_timeout => {
default => 1,
val => '10000',
},
SQL_LOG_BIN => {
default => 0,
val => '0',
},
},
"set_vars(): var=0 (bug 1182856)"
) or diag(Dumper($vars));
# ############################################################################# # #############################################################################
# Done. # Done.
# ############################################################################# # #############################################################################