diff options
Diffstat (limited to 'src/include/catalog/reformat_dat_file.pl')
| -rwxr-xr-x | src/include/catalog/reformat_dat_file.pl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/include/catalog/reformat_dat_file.pl b/src/include/catalog/reformat_dat_file.pl index 7281a658026..725117d846c 100755 --- a/src/include/catalog/reformat_dat_file.pl +++ b/src/include/catalog/reformat_dat_file.pl @@ -41,7 +41,7 @@ my $output_path = ''; my $full_tuples = 0; GetOptions( - 'output=s' => \$output_path, + 'output=s' => \$output_path, 'full-tuples' => \$full_tuples) || usage(); # Sanity check arguments. @@ -70,7 +70,7 @@ foreach my $datfile (@ARGV) my $catalog = Catalog::ParseHeader($header); my $catname = $catalog->{catname}; - my $schema = $catalog->{columns}; + my $schema = $catalog->{columns}; push @catnames, $catname; $catalogs{$catname} = $catalog; @@ -219,7 +219,7 @@ sub strip_default_values # data files. sub format_hash { - my $data = shift; + my $data = shift; my @orig_attnames = @_; # Copy attname to new array if it has a value, so we can determine @@ -237,7 +237,7 @@ sub format_hash my $char_count = 1; my $threshold; - my $hash_str = ''; + my $hash_str = ''; my $element_count = 0; foreach my $attname (@attnames) @@ -271,7 +271,7 @@ sub format_hash # Include a leading space in the key-value pair, since this will # always go after either a comma or an additional padding space on # the next line. - my $element = " $attname => '$value'"; + my $element = " $attname => '$value'"; my $element_length = length($element); # If adding the element to the current line would expand the line |