fix Undefined subroutine &JSON::decode_json called at /opt/xcat/ws/xcatws.cgi line 168

This commit is contained in:
baiyuan 2014-01-27 23:31:39 -05:00
parent 6556f026d7
commit b7ec6919e9

View File

@ -1,7 +1,7 @@
#!/usr/bin/perl
use strict;
use CGI qw/:standard/;
#use JSON; # require this dynamically later on so that installations that do not use xcatws.cgi do not need perl-JSON
use JSON; # require this dynamically later on so that installations that do not use xcatws.cgi do not need perl-JSON
use Data::Dumper;
#added the line: