← Back to branch summary

~percona-toolkit-dev/percona-toolkit/test-suite-noise

« back to all changes in this revision

Viewing changes to bin/pt-config-diff

  • Committer: fraserb at gmail
  • Date: 2012-08-01 18:02:28 UTC
  • mfrom: (329.7.1 percona-toolkit)
  • Revision ID: fraserb@gmail.com-20120801180228-shnpem0pdur66sdv
Merged fix-889739-pt-cd-quoted-strings and added the new sample files

Show diffs side-by-side

added added

removed removed

Lines of Context:
bin/pt-config-diff
2171
2171
            $val = '';
2172
2172
         }
2173
2173
         else {
 
2174
            $val =~ s/
 
2175
                        \A        # Start of value
 
2176
                        (['"])    # Opening quote
 
2177
                        (.*)      # Value
 
2178
                        \1        # Closing quote
 
2179
                        [\n\r]*\z # End of value
 
2180
                    /$2/x;
2174
2181
            if ( my ($num, $factor) = $val =~ m/(\d+)([KMGT])b?$/i ) {
2175
2182
               my %factor_for = (
2176
2183
                  k => 1_024,