postgres
diff --git a/‎src/backend/catalog/Catalog.pm
Copy file name to clipboardExpand all lines: src/backend/catalog/Catalog.pm
+7-21Lines changed: 7 additions & 21 deletions b/‎src/backend/catalog/Catalog.pm
Copy file name to clipboardExpand all lines: src/backend/catalog/Catalog.pm
+7-21Lines changed: 7 additions & 21 deletions
@@ -300,21 +300,21 @@ sub ParseHeader
 
 # Parses a file containing Perl data structure literals, returning live data.
 #
-# The parameter $preserve_formatting needs to be set for callers that want
+# The parameter $preserve_comments needs to be set for callers that want
 # to work with non-data lines in the data files, such as comments and blank
 # lines. If a caller just wants to consume the data, leave it unset.
+# (When requested, non-data lines will be returned as array entries that
+# are strings not hashes, so extra code is needed to deal with that.)
 sub ParseData
 {
-	my ($input_file, $schema, $preserve_formatting) = @_;
+	my ($input_file, $schema, $preserve_comments) = @_;
 
 	open(my $ifd, '<', $input_file) || die "$input_file: $!";
 	$input_file =~ /(\w+)\.dat$/
 	  or die "Input file $input_file needs to be a .dat file.\n";
 	my $catname = $1;
 	my $data = [];
 
-	if ($preserve_formatting)
-	{
 		# Scan the input file.
 		while (<$ifd>)
 		{
@@ -369,31 +369,17 @@ sub ParseData
 			# with --full-tuples to print autogenerated entries, which seems like
 			# useful behavior for debugging.)
 			#
-			# Otherwise, we have a non-data string, which we need to keep in
-			# order to preserve formatting.
+			# Otherwise, we have a non-data string, which we keep only if
+			# the caller requested it.
 			if (defined $hash_ref)
 			{
 				push @$data, $hash_ref if !$hash_ref->{autogenerated};
 			}
 			else
 			{
-				push @$data, $_;
+				push @$data, $_ if $preserve_comments;
 			}
 		}
-	}
-	else
-	{
-		# When we only care about the contents, it's faster to read and eval
-		# the whole file at once.
-		local $/;
-		my $full_file = <$ifd>;
-		eval "\$data = $full_file"    ## no critic (ProhibitStringyEval)
-		  or die "error parsing $input_file\n";
-		foreach my $hash_ref (@{$data})
-		{
-			AddDefaultValues($hash_ref, $schema, $catname);
-		}
-	}
 
 	close $ifd;