Changeset 22649
- Timestamp:
- 2010-08-17T14:03:34+12:00 (14 years ago)
- Location:
- main/trunk/greenstone2/perllib/cpan/HTML
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/cpan/HTML/Entities.pm
r14078 r22649 142 142 @EXPORT_OK = qw(%entity2char %char2entity encode_entities_numeric); 143 143 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; } 146 150 147 151 require HTML::Parser; # for fast XS implemented decode_entities -
main/trunk/greenstone2/perllib/cpan/HTML/PullParser.pm
r14078 r22649 5 5 require HTML::Parser; 6 6 @ISA=qw(HTML::Parser); 7 $VERSION = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);7 #$VERSION = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); 8 8 9 9 use strict; -
main/trunk/greenstone2/perllib/cpan/HTML/TokeParser.pm
r14078 r22649 5 5 require HTML::PullParser; 6 6 @ISA=qw(HTML::PullParser); 7 $VERSION = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);7 #$VERSION = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); 8 8 9 9 use strict;
Note:
See TracChangeset
for help on using the changeset viewer.