fixed JSON module usage

sshadmin · Mar 20, 2012 · 8cba8f8 · 8cba8f8
1 parent b46cf4d
commit 8cba8f8
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/snapback.pl b/snapback.pl
@@ -6,7 +6,6 @@
   print "Please install JSON module and make it available to current user.\n";
   exit 1;
 }
-require JSON ;
 JSON->import(qw(decode_json from_json));
 
 my $script_name = "$0" ;
@@ -123,8 +122,8 @@
 if ($debug) {
   print "Response: " .$ec2DataResponse."\n";
 }
-my $instanceDataRef=decode_json $ec2DataResponse;
-my $instanceDataText=from_json($ec2DataResponse, {utf8 => 1});
+my $instanceDataRef=JSON->decode_json($ec2DataResponse);
+my $instanceDataText=JSON->from_json($ec2DataResponse, {utf8 => 1});
 my $instanceId=$instanceDataRef->{"instanceId"};
 my $instanceRegion=$instanceDataRef->{"region"};
 if ($debug) {