2016-05-02 19:39:19 +01:00
|
|
|
class PerlRequirement < Requirement
|
|
|
|
fatal true
|
|
|
|
default_formula "perl"
|
|
|
|
|
|
|
|
def initialize(tags)
|
2016-09-11 17:42:44 +01:00
|
|
|
@version = tags.shift if /^\d+\.\d+$/ =~ tags.first
|
2016-05-02 19:39:19 +01:00
|
|
|
raise "PerlRequirement requires a version!" unless @version
|
|
|
|
super
|
|
|
|
end
|
|
|
|
|
2016-09-17 15:32:44 +01:00
|
|
|
satisfy(build_env: false) do
|
2016-05-02 19:39:19 +01:00
|
|
|
which_all("perl").detect do |perl|
|
2016-05-11 14:41:11 -07:00
|
|
|
perl_version = Utils.popen_read(perl, "--version")[/v(\d+\.\d+)(?:\.\d+)?/, 1]
|
2016-05-02 19:39:19 +01:00
|
|
|
next unless perl_version
|
2016-07-11 16:09:35 +03:00
|
|
|
Version.create(perl_version.to_s) >= Version.create(@version)
|
2016-05-02 19:39:19 +01:00
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
def message
|
|
|
|
s = "Perl #{@version} is required to install this formula."
|
|
|
|
s += super
|
|
|
|
s
|
|
|
|
end
|
|
|
|
|
|
|
|
def inspect
|
|
|
|
"#<#{self.class.name}: #{name.inspect} #{tags.inspect} version=#{@version.inspect}>"
|
|
|
|
end
|
2016-09-18 00:37:02 -04:00
|
|
|
|
|
|
|
def display_s
|
|
|
|
if @version
|
|
|
|
"#{name} >= #{@version}"
|
|
|
|
else
|
|
|
|
name
|
|
|
|
end
|
|
|
|
end
|
2016-05-02 19:39:19 +01:00
|
|
|
end
|