Changeset 17099

Show
Ignore:
Timestamp:
29.08.2008 14:32:34 (11 years ago)
Author:
kjdon
Message:

in get_language_encoding, we extract head from html files. if its not defined I made it = so we don't get undefined variables messages from perl

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/plugins/ReadTextFile.pm

    r17026 r17099  
    342342    # inactive tags (those that are nested inside comments) 
    343343    my ($head) = ($text =~ m/<head>(.*)<\/head>/si); 
     344    $head = "" unless defined $head; # some files are not proper HTML eg php files 
    344345    $head =~ s/<!--.*?-->//sg; 
    345346