Changeset 14089 for trunk/gsdl/perllib/plugins/HTMLPlug.pm

Timestamp:

2007-05-24T09:18:48+12:00 (17 years ago)

Author:

mdewsnip

Message:

Changed the "use HTML::TokeParser::Simple" to "require HTML::TokeParser::Simple" where it is used, because the Parser.so file doesn't work on our machines.

File:

• trunk/gsdl/perllib/plugins/HTMLPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/HTMLPlug.pm

@@ -42 +42 @@
 use XMLParser;
 
-use HTML::TokeParser::Simple;
 use Image::Size;
 
@@ -454 +453 @@
     # get the input filename
     my ($tailname, $dirname, $suffix) = &File::Basename::fileparse($input_filename, "\\.[^\\.]+\$");
+
+    require HTML::TokeParser::Simple;
     
         # create HTML parser to decode the input file