Ignore:
Timestamp:
2008-08-29T14:32:34+12:00 (16 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

File:
1 edited

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
Note: See TracChangeset for help on using the changeset viewer.