From f6380c592da1fa5a104126c38428dc86c7d45c73 Mon Sep 17 00:00:00 2001 From: Joe Atzberger Date: Mon, 7 Jan 2008 13:52:54 -0600 Subject: [PATCH] Dates.pm - BEGIN block VERSION and vars related to export. Signed-off-by: Chris Cormack Signed-off-by: Joshua Ferraro --- C4/Dates.pm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/C4/Dates.pm b/C4/Dates.pm index 353a8c0e79..f45fd79f3f 100644 --- a/C4/Dates.pm +++ b/C4/Dates.pm @@ -23,9 +23,11 @@ use POSIX qw(strftime); use Date::Calc qw(check_date check_time); use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); -$VERSION = 0.03; -@ISA = qw(Exporter); -@EXPORT_OK = qw(DHTMLcalendar format_date_in_iso format_date); +BEGIN { + $VERSION = 0.03; + @ISA = qw(Exporter); + @EXPORT_OK = qw(DHTMLcalendar format_date_in_iso format_date); +} my $prefformat = C4::Context->preference('dateformat'); my $debug = $ENV{'DEBUG'} || 0; -- 2.39.5