Changeset 24076 for trunk/tools/diff_outputs.pl

Timestamp:

May 5, 2009, 4:35:21 PM (17 years ago)

Author:

Paul Price

Message:

Fixing so it works.

File:

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

trunk/tools/diff_outputs.pl

@@ -84 +84 @@
 if (defined $products) {
   PRODUCT_SEARCH: foreach my $product ( split /,/, $products ) {
-      foreach my $key ( keys %${EXTENSIONS()} ) {
+      foreach my $key ( keys %{PRODUCTS()} ) {
           if ($product eq $key) {
-              push @products, ${PRODUCTS()}->{$key};
+              push @products, @{${PRODUCTS()}{$key}};
               next PRODUCT_SEARCH;
           }
@@ -98 +98 @@
 foreach my $diff ( @$diffs ) {
     foreach my $product ( @products ) {
-        print "$product ==> ";
         copy_extension( $diff, ${EXTENSIONS()}{$product} );
     }