Changeset 18441 for gsdl/trunk/perllib/plugins/BasePlugin.pm

Timestamp:

2009-02-01T14:36:22+13:00 (15 years ago)

Author:

davidb

Message:

Modifications for incremental building to support files that need to be deleted

File:

• gsdl/trunk/perllib/plugins/BasePlugin.pm (modified) (1 diff)

gsdl/trunk/perllib/plugins/BasePlugin.pm

@@ -433 +433 @@
     my ($filename_full_path, $filename_no_path) = &util::get_full_filenames($base_dir, $file);
 
+    if (!-d $filename_full_path) {
+    $block_hash->{'all_files'}->{$file} = 1;
+    }
+
     my $associate_tail_re = $self->{'associate_tail_re'};
     if ((defined $associate_tail_re) && ($associate_tail_re ne "")) {