Changeset 10980 for trunk/gsdl/perllib/doc.pm
- Timestamp:
- 2005-12-09T10:53:53+13:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/doc.pm
r10608 r10980 185 185 186 186 if (!defined $filename) { 187 $filename = $self->get_metadata_element ($self->get_top_section(), "gsdlsourcefilename"); 187 # if NULPlug processed file, then don't give a filename 188 if ($self->get_metadata_element ($self->get_top_section(), "Plugin") eq "NULPlug") { 189 $filename = undef; 190 } else { 191 $filename = $self->get_metadata_element ($self->get_top_section(), "gsdlsourcefilename"); 192 } 188 193 } 189 194 return $filename; … … 915 920 # cos its quicker 916 921 my $filename = $self->get_filename_for_hashing(); 917 918 922 # -z: don't want to hash on the file if it is zero size 919 923 if (defined($filename) && -e $filename && !-z $filename) {
Note:
See TracChangeset
for help on using the changeset viewer.