Changeset 30492


Ignore:
Timestamp:
2016-05-05T06:00:00+12:00 (6 years ago)
Author:
Georgiy Litvinov
Message:

Fix for previous commit.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/plugins/PDFPlugin.pm

    r30491 r30492  
    315315    # num_pages as metadata.
    316316    # Clean html from low and hight surrogates D800–DFFF
    317     $text =~ s@[\N{U+D800}-\N{DFFF}]@\ @g;
     317    $text =~ s@[\N{U+D800}-\N{U+DFFF}]@\ @g;
    318318    my @pages = ($text =~ m/\<[Aa] name=\"?\w+\"?>/ig); #<div style=\"?page-break-before:always; page-break-after:always\"?>
    319319    my $num_pages = scalar(@pages);
Note: See TracChangeset for help on using the changeset viewer.