← Back to branch summary

~percona-toolkit-dev/percona-toolkit/pt-fingerprint-broken-fingerprinting-of-specific-INSERT-REPLACE-queries-1289516

« back to all changes in this revision

Viewing changes to bin/pt-deadlock-logger

Merge fix-pt-archiver-dry-run-bug-1199589 and make 2.2.4 release dates in Changelog and release_notes.pod match.

Show diffs side-by-side

added added

removed removed

Lines of Context:
bin/pt-deadlock-logger
508
508
   my $long = exists $self->{opts}->{$opt}       ? $opt
509
509
            : exists $self->{short_opts}->{$opt} ? $self->{short_opts}->{$opt}
510
510
            : die "Getopt::Long gave a nonexistent option: $opt";
511
 
 
512
511
   $opt = $self->{opts}->{$long};
513
512
   if ( $opt->{is_cumulative} ) {
514
513
      $opt->{value}++;
515
514
   }
 
515
   elsif ( ($opt->{type} || '') eq 's' && $val =~ m/^--?(.+)/ ) {
 
516
      my $next_opt = $1;
 
517
      if (    exists $self->{opts}->{$next_opt}
 
518
           || exists $self->{short_opts}->{$next_opt} ) {
 
519
         $self->save_error("--$long requires a string value");
 
520
         return;
 
521
      }
 
522
      else {
 
523
         $opt->{value} = $val;
 
524
      }
 
525
   }
516
526
   else {
517
527
      $opt->{value} = $val;
518
528
   }
5518
5528
 
5519
5529
=head1 VERSION
5520
5530
 
5521
 
pt-deadlock-logger 2.2.3
 
5531
pt-deadlock-logger 2.2.4
5522
5532
 
5523
5533
=cut