| 
									
										
										
										
											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 |