- if ($localpart =~ /^[^\/]*$/) { # no slash, i.e. no dir
- push @itemz, "object," . $localpart;
- } else { # exists at least one slash, i.e. a dir
+
+ if ($localpart =~ /^[^\/]*$/) { # no slash, an OBJECT
+ $basepart = $localpart;
+ $basepart =~ s/^(.*)\.types(\.ann)?/$1/; # remove exts .types or
+ # .types.ann
+ $flags = $objects{$basepart}; # get old flags
+ if ($localpart =~ /\.ann$/) {
+ $flags = add_flag("ann_YES",$flags);
+ } else {
+ $flags = add_flag("ann_NO",$flags);
+ }
+ if ($localpart =~ /\.types$/) {
+ $flags = add_flag("types_YES",$flags);
+ } elsif ($localpart =~ /\.types\.ann$/) {
+ $flags = add_flag("types_ANN",$flags);
+ } else {
+ $flags = add_flag("types_NO",$flags);
+ }
+ $objects{$basepart} = $flags; # save new flags
+ } else { # exists at least one slash, a DIR