Changeset 42447 for trunk/tools/eam/rawfix.20230221/src/fix_chip_locations.pl

Timestamp:

Apr 11, 2023, 11:00:58 AM (3 years ago)

Author:

eugene

Message:

fix little issues

File:

• trunk/tools/eam/rawfix.20230221/src/fix_chip_locations.pl (modified) (2 diffs)

trunk/tools/eam/rawfix.20230221/src/fix_chip_locations.pl

@@ -195 +195 @@
                 my $NcullTotal = @$cull_list_r;
                 foreach my $instance (@$cull_list_r) {
+                    print "state $state : checking instance $instance ... ";
                     my ($volname) = $instance =~ m|file:///data/([0-9a-zA-Z]*\.[0-9])/\S*|;
+                    print "volname $volname\n";
                     unless (defined $vol_good{$volname}) { die "ERROR: invalid volume name $volname\n"; }
                     # print STDERR "neb-cull $state: $ext_id $volname ($main_keep $back_keep)\n";
@@ -321 +323 @@
         if (($xattr == 1) && ($back_keep eq "")) { $back_keep = $instance; next; }
 
+        if ($xattr > 1) { print "ignore lost instance $instance\n"; next; }
+
         # if we make it here, we already have an instance at this location
         push (@cull_list, $instance);