Commit a7ce54b2 authored by Leigh B Stoller's avatar Leigh B Stoller
Browse files

Minor bug fix for dealing with the Version return from newer CMs.

parent bab97a0c
...@@ -27,6 +27,7 @@ use English; ...@@ -27,6 +27,7 @@ use English;
use overload ('""' => 'Stringify'); use overload ('""' => 'Stringify');
use XML::Simple; use XML::Simple;
use Date::Parse; use Date::Parse;
use Data::Dumper;
# Configure variables # Configure variables
my $TB = "@prefix@"; my $TB = "@prefix@";
...@@ -327,8 +328,13 @@ sub Version($) ...@@ -327,8 +328,13 @@ sub Version($)
print STDERR " " . $response->output() . "\n"; print STDERR " " . $response->output() . "\n";
return undef; return undef;
} }
if (ref($response->value())) {
$self->{'version'} = $response->value()->{'api'};
}
else {
$self->{'version'} = $response->value(); $self->{'version'} = $response->value();
return $response->value(); }
return $self->{'version'};
} }
# #
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment