[SVN] [117] Work around a bug in debian's libxml-perl-sax-base

[matt]

Revision: 117
Author:   matt
Date:     2006-08-24 00:05:25 +0000 (Thu, 24 Aug 2006)

Log Message:
-----------
Work around a bug in debian's libxml-perl-sax-base

Modified Paths:
--------------
    trunk/plugins/demo/doc_viewer

Modified: trunk/plugins/demo/doc_viewer
===================================================================
--- trunk/plugins/demo/doc_viewer       2006-08-24 00:04:48 UTC (rev 116)
+++ trunk/plugins/demo/doc_viewer       2006-08-24 00:05:25 UTC (rev 117)
@@ -66,7 +66,8 @@
     my $builder = XML::LibXML::SAX::Builder->new();
     my $p = Pod::SAX->new( Handler => $builder );
     
-    $p->parse_file($uri);
+    open(my $fh, $uri) || die "Failed to open($uri): $!";
+    $p->parse_file($fh);
     
     my $doc = $builder->result();