diff options
| -rw-r--r-- | Makefile.PL | 1 | ||||
| -rw-r--r-- | lib/SlackBuild/Request/Auto.pm | 6 |
2 files changed, 6 insertions, 1 deletions
diff --git a/Makefile.PL b/Makefile.PL index e738c9a..776890c 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -23,6 +23,7 @@ WriteMakefile(NAME => 'slackbuilder', 'HTTP::Response' => 0, 'HTTP::Status' => 0, 'JSON' => 0., + 'YAML' => '1.20', 'LWP::UserAgent' => '6.29', 'List::Regexp' => '1.03', #Net::SBo diff --git a/lib/SlackBuild/Request/Auto.pm b/lib/SlackBuild/Request/Auto.pm index 08832d6..576d39d 100644 --- a/lib/SlackBuild/Request/Auto.pm +++ b/lib/SlackBuild/Request/Auto.pm @@ -6,6 +6,7 @@ use File::Basename; use File::Spec; use Net::SBo; use JSON; +use YAML; use Carp; sub req { @@ -17,7 +18,10 @@ sub req { open(my $fd, $reqname) or croak "can't open file $reqname: $!"; my $string = <$fd>; close $fd; - return decode_json($string); + if ($string =~ /^\{/) { + return decode_json($string); + } + return YAML::Load($string); } if (-d $reqname) { |