Changeset 22649

Timestamp:

2010-08-17T14:03:34+12:00 (14 years ago)

Author:

davidb

Message:

Setting of versino leads to unasigned variable warnings. Essentially this seems to be because the version of these files we have come from CVS/SVN and so don't actually set the version number in the form x.x (where 'x' are numeric) ... this leads to the sprintf statement not matching. Simplest things seems to be to comment out the offending lines (as there isn't an obvious version number to set it to) as none of our code that includes these files does a test for the version

Location:

main/trunk/greenstone2/perllib/cpan/HTML

Files:

• Entities.pm (modified) (1 diff)
• PullParser.pm (modified) (1 diff)
• TokeParser.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/cpan/HTML/Entities.pm

@@ -142 +142 @@
 @EXPORT_OK = qw(%entity2char %char2entity encode_entities_numeric);
 
-$VERSION = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
-sub Version { $VERSION; }
+# The version we (Greenstone) seem to be using looks like it's come
+# from CVS/SVN and so does not parse the following sprintf statement
+# => Doesn't appear to be used anywhere in this file, so commenting out
+#
+#$VERSION = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+#sub Version { $VERSION; }
 
 require HTML::Parser;  # for fast XS implemented decode_entities

main/trunk/greenstone2/perllib/cpan/HTML/PullParser.pm

@@ -5 +5 @@
 require HTML::Parser;
 @ISA=qw(HTML::Parser);
-$VERSION = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+#$VERSION = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
 
 use strict;

main/trunk/greenstone2/perllib/cpan/HTML/TokeParser.pm

@@ -5 +5 @@
 require HTML::PullParser;
 @ISA=qw(HTML::PullParser);
-$VERSION = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+#$VERSION = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
 
 use strict;