Changeset 24224 for trunk/tools/diff_outputs.pl

Timestamp:

May 19, 2009, 9:45:15 AM (17 years ago)

Author:

Paul Price

Message:

Fixing so recent changes work.

File:

• trunk/tools/diff_outputs.pl (modified) (2 diffs)

trunk/tools/diff_outputs.pl

@@ -75 +75 @@
 
 # List of diffs
-my $diffs = $db->selectcol_arrayref( $sql,
-                                     { Columns => [1] }
+my $diffs = $db->selectall_arrayref( $sql, { Slice => {} }
                                      ) or die "Unable to execute SQL: $DBI::errstr";
 
@@ -97 +96 @@
     foreach my $product ( @products ) {
         next if (not defined $diff->{bothways} or $diff->{bothways} eq 'NULL' or not $diff->{bothways}) and $product =~ /INVERSE/;
-        copy_extension( $diff, ${EXTENSIONS()}{$product} );
+        copy_extension( $diff->{path_base}, ${EXTENSIONS()}{$product} );
     }
 }