X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=C4%2FTmplTokenType.pm;h=b2ebac85297d1e5789ee474c652975f222b2639d;hb=00cf699c82aeea46ef5a72bf344fd306430c5aba;hp=4cf226881446bd2efe9e0eefc49526baede97e60;hpb=a6c9bd0eb55c32d5632625144775271f20aa15f7;p=koha.git

diff --git a/C4/TmplTokenType.pm b/C4/TmplTokenType.pm
index 4cf2268814..b2ebac8529 100644
--- a/C4/TmplTokenType.pm
+++ b/C4/TmplTokenType.pm
@@ -21,7 +21,7 @@ use strict;
 #use warnings; FIXME - Bug 2505
 require Exporter;
 
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
+use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
 ###############################################################################
 
@@ -38,7 +38,6 @@ The predefined constants are
 
 ###############################################################################
 
-$VERSION = 3.07.00.049;
 
 @ISA = qw(Exporter);
 @EXPORT_OK = qw(
@@ -83,15 +82,15 @@ sub to_string {
     return $this->{'name'}
 }
 
-sub TEXT		() { $_text }
-sub TEXT_PARAMETRIZED	() { $_text_parametrized }
-sub CDATA		() { $_cdata }
-sub TAG			() { $_tag }
-sub DECL		() { $_decl }
-sub PI			() { $_pi }
-sub DIRECTIVE		() { $_directive }
-sub COMMENT		() { $_comment }
-sub UNKNOWN		() { $_unknown }
+sub TEXT              { $_text }
+sub TEXT_PARAMETRIZED { $_text_parametrized }
+sub CDATA             { $_cdata }
+sub TAG               { $_tag }
+sub DECL              { $_decl }
+sub PI                { $_pi }
+sub DIRECTIVE         { $_directive }
+sub COMMENT           { $_comment }
+sub UNKNOWN           { $_unknown }
 
 ###############################################################################