Changeset 30492 for main/trunk/greenstone2/perllib/plugins/PDFPlugin.pm

Timestamp:

2016-05-05T06:00:00+12:00 (8 years ago)

Author:

Georgiy Litvinov

Message:

Fix for previous commit.

File:

• main/trunk/greenstone2/perllib/plugins/PDFPlugin.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/plugins/PDFPlugin.pm

@@ -315 +315 @@
     # num_pages as metadata.
     # Clean html from low and hight surrogates D800–DFFF
-    $text =~ s@[\N{U+D800}-\N{DFFF}]@\ @g;
+    $text =~ s@[\N{U+D800}-\N{U+DFFF}]@\ @g;
     my @pages = ($text =~ m/\<[Aa] name=\"?\w+\"?>/ig); #<div style=\"?page-break-before:always; page-break-after:always\"?>
     my $num_pages = scalar(@pages);