Changeset 31443
- Timestamp:
- 2017-02-27T14:29:46+13:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/util.pm
r31187 r31443 838 838 839 839 if (($ENV{'GSDLOS'} =~ m/^windows$/) && ($^O ne "cygwin")) { 840 841 # lower case the entire thing, eg for cover.jpg when its actually cover.JPG 842 my $lower_filename = lc($filename); 843 $block_hash->{'file_blocks'}->{$lower_filename} = 1; 840 # block hash contains long names, lets make sure that we were passed a long name 841 $filename = &util::upgrade_if_dos_filename($filename); 842 # lower case the entire thing, eg for cover.jpg when its actually cover.JPG 843 my $lower_filename = lc($filename); 844 $block_hash->{'file_blocks'}->{$lower_filename} = 1; 845 844 846 # my $lower_drive = $filename; 845 847 # $lower_drive =~ s/^([A-Z]):/\l$1:/i;
Note:
See TracChangeset
for help on using the changeset viewer.