~percona-toolkit-dev/percona-toolkit/fix-886059-pt-heartbeat-timezones

« back to all changes in this revision

Viewing changes to bin/pt-fifo-split

  • Committer: Brian Fraser
  • Date: 2012-12-03 03:48:11 UTC
  • mto: This revision was merged to the branch mainline in revision 498.
  • Revision ID: brian.fraser@percona.com-20121203034811-1gih4cjkmm0tfjv8
Update modules for all tools using DSNParser

Show diffs side-by-side

added added

removed removed

Lines of Context:
816
816
            $desc .= ".  Optional suffix s=seconds, m=minutes, h=hours, "
817
817
                   . "d=days; if no suffix, $s is used.";
818
818
         }
819
 
         $desc = join("\n$rpad", grep { $_ } $desc =~ m/(.{0,$rcol})(?:\s+|$)/g);
 
819
         $desc = join("\n$rpad", grep { $_ } $desc =~ m/(.{0,$rcol}(?!\W))(?:\s+|(?<=\W)|$)/g);
820
820
         $desc =~ s/ +$//mg;
821
821
         if ( $short ) {
822
822
            $usage .= sprintf("  --%-${maxs}s -%s  %s\n", $long, $short, $desc);