diff options
| author | Max Kanat-Alexander <mkanat@bugzilla.org> | 2010-04-22 20:02:17 +0200 |
|---|---|---|
| committer | Max Kanat-Alexander <mkanat@bugzilla.org> | 2010-04-22 20:02:17 +0200 |
| commit | 271477d8c26794abd8310e2abb89b746204660af (patch) | |
| tree | a4701a52f9ff1918e25a75e09267bfba0b063296 /contrib/bzdbcopy.pl | |
| parent | 3417cb73db6d2306a012d3c624e9bec92fa1a161 (diff) | |
| download | bugzilla-271477d8c26794abd8310e2abb89b746204660af.tar.gz bugzilla-271477d8c26794abd8310e2abb89b746204660af.tar.xz | |
Bug 560009: Use firstidx from List::MoreUtils instead of lsearch
r=timello, a=mkanat
Diffstat (limited to 'contrib/bzdbcopy.pl')
| -rwxr-xr-x | contrib/bzdbcopy.pl | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/contrib/bzdbcopy.pl b/contrib/bzdbcopy.pl index a5e81d7f8..8491238b5 100755 --- a/contrib/bzdbcopy.pl +++ b/contrib/bzdbcopy.pl @@ -71,11 +71,9 @@ my $ident_char = $target_db->get_info( 29 ); # SQL_IDENTIFIER_QUOTE_CHAR # has customized their source DB, we still want the script to work, # and it may otherwise fail in that situation (that is, the tables # may not exist in the target DB). -my @table_list = $target_db->bz_table_list_real(); - -# We don't want to copy over the bz_schema table's contents. -my $bz_schema_location = lsearch(\@table_list, 'bz_schema'); -splice(@table_list, $bz_schema_location, 1) if $bz_schema_location > 0; +# +# We don't want to copy over the bz_schema table's contents, though. +my @table_list = grep { $_ ne 'bz_schema' } $target_db->bz_table_list_real(); # Instead of figuring out some fancy algorithm to insert data in the right # order and not break FK integrity, we just drop them all. |