Changeset 22649

Show
Ignore:
Timestamp:
17.08.2010 14:03:34 (9 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:
3 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/cpan/HTML/Entities.pm

    r14078 r22649  
    142142@EXPORT_OK = qw(%entity2char %char2entity encode_entities_numeric); 
    143143 
    144 $VERSION = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); 
    145 sub Version { $VERSION; } 
     144# The version we (Greenstone) seem to be using looks like it's come 
     145# from CVS/SVN and so does not parse the following sprintf statement 
     146# => Doesn't appear to be used anywhere in this file, so commenting out 
     147# 
     148#$VERSION = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); 
     149#sub Version { $VERSION; } 
    146150 
    147151require HTML::Parser;  # for fast XS implemented decode_entities 
  • main/trunk/greenstone2/perllib/cpan/HTML/PullParser.pm

    r14078 r22649  
    55require HTML::Parser; 
    66@ISA=qw(HTML::Parser); 
    7 $VERSION = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); 
     7#$VERSION = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); 
    88 
    99use strict; 
  • main/trunk/greenstone2/perllib/cpan/HTML/TokeParser.pm

    r14078 r22649  
    55require HTML::PullParser; 
    66@ISA=qw(HTML::PullParser); 
    7 $VERSION = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); 
     7#$VERSION = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); 
    88 
    99use strict;