podwrapper: Define $VERSION in subclass.

The superclass sometimes uses this and will give an undefined
error if it's missing.
This commit is contained in:
Richard W.M. Jones
2012-07-17 13:15:55 +01:00
parent 60c42dd2a1
commit 9967ad3fa1

View File

@@ -255,8 +255,9 @@ SUBCLASS: {
# Subclass Pod::Simple::XHTML. See the documentation.
package Podwrapper::XHTML;
use vars qw(@ISA);
use vars qw(@ISA $VERSION);
@ISA = qw(Pod::Simple::XHTML);
$VERSION = $package_version;
# Pod::Simple::XHTML returns uppercase identifiers, whereas the
# old pod2html returns lowercase ones.