diff options
author | Adrian Schröter <adrian@suse.de> | 2013-08-06 15:17:32 +0200 |
---|---|---|
committer | Adrian Schröter <adrian@suse.de> | 2013-08-06 15:17:32 +0200 |
commit | 7be847b3b53ee593bcdd73fcef4fb49c15400457 (patch) | |
tree | 478b1e4f8b2a29d4ce6ab126d3aa6f1afe76e330 /Build | |
parent | 86dc2ae94de21ba0fd8313e2bef39a288ab98912 (diff) |
- use old style version interface to become compatible with SLE 11 perl
Diffstat (limited to 'Build')
-rw-r--r-- | Build/Kiwi.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Build/Kiwi.pm b/Build/Kiwi.pm index 570d4e3..48a1986 100644 --- a/Build/Kiwi.pm +++ b/Build/Kiwi.pm @@ -114,11 +114,11 @@ sub kiwiparse { my @extrasources; my @requiredarch; my $schemaversion = 0; - my $schemaversion56 = version->parse("5.6"); + my $schemaversion56 = version->new("5.6"); my $kiwi = parsexml($xml); die("not a kiwi config\n") unless $kiwi && $kiwi->{'image'}; $kiwi = $kiwi->{'image'}->[0]; - $schemaversion = version->parse($kiwi->{'schemaversion'}) if $kiwi->{'schemaversion'}; + $schemaversion = version->new($kiwi->{'schemaversion'}) if $kiwi->{'schemaversion'}; $ret->{'filename'} = $kiwi->{'name'} if $kiwi->{'name'}; my $description = (($kiwi->{'description'} || [])->[0]) || {}; if ($description->{'specification'}) { |