gnu: libvpx: Use 'modify-phases'.
* gnu/packages/video.scm (libvpx)[arguments]: Use 'modify-phases'.
This commit is contained in:
		
							parent
							
								
									fb197c0da4
								
							
						
					
					
						commit
						0e47b4e769
					
				
					 1 changed files with 14 additions and 14 deletions
				
			
		| 
						 | 
					@ -785,20 +785,20 @@ projects while introducing many more.")
 | 
				
			||||||
                "15v7qw0ydyxn08ksb6lxn1l51pxgpwgshdwd3275yrr5hs86fv9h"))))
 | 
					                "15v7qw0ydyxn08ksb6lxn1l51pxgpwgshdwd3275yrr5hs86fv9h"))))
 | 
				
			||||||
    (build-system gnu-build-system)
 | 
					    (build-system gnu-build-system)
 | 
				
			||||||
    (arguments
 | 
					    (arguments
 | 
				
			||||||
     `(#:phases (alist-replace
 | 
					     `(#:phases
 | 
				
			||||||
                 'configure
 | 
					       (modify-phases %standard-phases
 | 
				
			||||||
                 (lambda* (#:key outputs #:allow-other-keys)
 | 
					         (replace 'configure
 | 
				
			||||||
                   (setenv "CONFIG_SHELL" (which "bash"))
 | 
					           (lambda* (#:key outputs #:allow-other-keys)
 | 
				
			||||||
                   (let ((out (assoc-ref outputs "out")))
 | 
					             (setenv "CONFIG_SHELL" (which "bash"))
 | 
				
			||||||
                     (setenv "LDFLAGS"
 | 
					             (let ((out (assoc-ref outputs "out")))
 | 
				
			||||||
                             (string-append "-Wl,-rpath=" out "/lib"))
 | 
					               (setenv "LDFLAGS"
 | 
				
			||||||
                     (zero? (system* "./configure"
 | 
					                       (string-append "-Wl,-rpath=" out "/lib"))
 | 
				
			||||||
                                     "--enable-shared"
 | 
					               (zero? (system* "./configure"
 | 
				
			||||||
                                     "--as=yasm"
 | 
					                               "--enable-shared"
 | 
				
			||||||
                                     ;; Limit size to avoid CVE-2015-1258
 | 
					                               "--as=yasm"
 | 
				
			||||||
                                     "--size-limit=16384x16384"
 | 
					                               ;; Limit size to avoid CVE-2015-1258
 | 
				
			||||||
                                     (string-append "--prefix=" out)))))
 | 
					                               "--size-limit=16384x16384"
 | 
				
			||||||
                 %standard-phases)
 | 
					                               (string-append "--prefix=" out)))))))
 | 
				
			||||||
       #:tests? #f)) ; no check target
 | 
					       #:tests? #f)) ; no check target
 | 
				
			||||||
    (native-inputs
 | 
					    (native-inputs
 | 
				
			||||||
     `(("perl" ,perl)
 | 
					     `(("perl" ,perl)
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Reference in a new issue