[livejournal] r20524: LJSUP-10271: Add new blocks to non-cyr h...

U   trunk/cgi-bin/ljtextutil.pl

Modified: trunk/cgi-bin/ljtextutil.pl
===================================================================
--- trunk/cgi-bin/ljtextutil.pl	2011-11-10 07:54:22 UTC (rev 20523)
+++ trunk/cgi-bin/ljtextutil.pl	2011-11-10 08:40:36 UTC (rev 20524)
@@ -977,7 +977,8 @@
 
     my @image_urls;
     my $p = HTML::TokeParser->new($htmlref);
-
+    return []
+        unless $p;
     while (my $token = $p->get_token) {
         if ($token->[1] eq 'img' and ref $token->[2] eq 'HASH') {
             my $attrs = $token->[2];