Remove possible comma from index renaming.

adil246 · Nov 26, 2021 · b7bf50e · b7bf50e
1 parent 738ddb2
commit b7bf50e
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/lib/Ora2Pg.pm b/lib/Ora2Pg.pm
@@ -9369,6 +9369,7 @@ sub _create_indexes
 					$idxname = substr($idxname,0,63);
 				}
 			}
+			$idxname =~ s/,//g;
 			$idxname = $self->quote_object_name("$idxname$self->{indexes_suffix}");
 			my $tb = $self->quote_object_name($table);
 			if ($self->{$objtyp}{$tbsaved}{idx_type}{$idx}{type_name} =~ /SPATIAL_INDEX/)
@@ -9663,6 +9664,7 @@ sub _drop_indexes
 					$idxname = substr($idxname,0,63);
 				}
 			}
+			$idxname =~ s/,//g;
 			if ($self->{tables}{$table}{idx_type}{$idx}{type} =~ /DOMAIN/i && $self->{tables}{$table}{idx_type}{$idx}{type_name} !~ /SPATIAL_INDEX/)
 			{
 				$idxname = $self->quote_object_name($idxname);