From 381bc1845e8ee8f62b34af26be7b5abb487eef39 Mon Sep 17 00:00:00 2001
From: Joe Atzberger <joe.atzberger@liblime.com>
Date: Mon, 7 Jan 2008 13:53:11 -0600
Subject: [PATCH] SMS.pm - BEGIN block VERSION and vars related to export.

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
---
 C4/SMS.pm | 36 ++++++++++++++++++------------------
 1 file changed, 18 insertions(+), 18 deletions(-)

diff --git a/C4/SMS.pm b/C4/SMS.pm
index 319ac33ff4..a0b21e1770 100644
--- a/C4/SMS.pm
+++ b/C4/SMS.pm
@@ -2,30 +2,30 @@ package C4::SMS;
 #Written by tgarip@neu.edu.tr for SMS message sending and other SMS related services
 
 use strict;
-require Exporter;
 use LWP::UserAgent;
 use C4::Context;
 use vars qw($VERSION @ISA @EXPORT);
-$VERSION = 0.01;
+
 my $user=C4::Context->config('smsuser');
 my $pwd=C4::Context->config('smspass');
 my $uri ="https://spgw.kktcell.com/smshttpproxy/SmsHttpProxyServlet";
 
-
-
-@ISA = qw(Exporter);
-
-@EXPORT = qw(
-&get_sms_auth 
-&send_sms 
-&read_sms
-&error_codes
-&parse_phone
-&parse_message
-&write_sms
-&mod_sms
-&kill_sms
-);
+BEGIN {
+	require Exporter;
+	@ISA = qw(Exporter);
+	$VERSION = 0.02;
+	@EXPORT = qw(
+		&get_sms_auth 
+		&send_sms 
+		&read_sms
+		&error_codes
+		&parse_phone
+		&parse_message
+		&write_sms
+		&mod_sms
+		&kill_sms
+	);
+}
 
 sub get_sms_auth {
     my $ua      = LWP::UserAgent->new;
@@ -146,4 +146,4 @@ my $session=shift;
  my $res=$ua->post($uri,[cmd=>'KILLSESSION',pSessionId=>$session]);
 }
 1;
-__END__
\ No newline at end of file
+__END__
-- 
2.39.5