From 58d0297249393eeebf60961ff7c8022ba7b90de8 Mon Sep 17 00:00:00 2001 From: Joe Atzberger Date: Mon, 7 Jan 2008 13:53:12 -0600 Subject: [PATCH] Scheduler.pm - BEGIN block VERSION and vars related to export. Signed-off-by: Chris Cormack Signed-off-by: Joshua Ferraro --- C4/Scheduler.pm | 19 +++++++++++-------- 1 file changed, 11 insertions(+), 8 deletions(-) diff --git a/C4/Scheduler.pm b/C4/Scheduler.pm index e5dc560d56..622a0787cb 100644 --- a/C4/Scheduler.pm +++ b/C4/Scheduler.pm @@ -18,17 +18,19 @@ package C4::Scheduler; # Suite 330, Boston, MA 02111-1307 USA use strict; -require Exporter; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); use C4::Context; use Schedule::At; -# set the version for version checking -$VERSION = 0.01; -@ISA = qw(Exporter); -@EXPORT = - qw(get_jobs get_at_jobs get_at_job add_at_job remove_at_job); +BEGIN { + # set the version for version checking + $VERSION = 0.02; + require Exporter; + @ISA = qw(Exporter); + @EXPORT = + qw(get_jobs get_at_jobs get_at_job add_at_job remove_at_job); +} =head1 NAME @@ -97,10 +99,11 @@ sub remove_at_job { Schedule::At::remove(JOBID => $jobid); } +1; +__END__ + =head1 AUTHOR Chris Cormack =cut - -1; -- 2.39.5