mò !°ðIc@s£dkTdkZdkZdad„Zd„Zdefd„ƒYZdefd„ƒYZdefd „ƒYZ d efd „ƒYZ d efd „ƒYZ dS((t*NcCsÛtdjotSntdƒo«tidƒ\}}|djo{ti|dƒ}d}xR|D]J}t |ƒdjo1|ddjod|jo|d }Pq­qcqcW|atSnd atSn d atSdS( Ntperlsperl -vit s- unknown perl version -itvt.is- no perl in $path -( tperlVerstNonet fileInPathtcommandstgetstatusoutputtstatustoutputtstringtsplittlRtxtlen(R RRR R((te/home/faculty/youssef/public_html/pacman/sample_cache/tarballs/pre/tmp/pacman-3.29/src/PerlVersion.pyt perlversions&   cCsJtidƒ}|i|ƒp|i|ƒo2||jodSn||jodSndSnæ|idƒ}|idƒ}x~t dt t |ƒt |ƒƒƒD]X}t ||ƒt ||ƒjodSq¤t ||ƒt ||ƒjodSq¤q¤Wt |ƒt |ƒjodSn"t |ƒt |ƒjodSndSdS(Ns[^\d.]iÿÿÿÿiiR(tretcompiletptsearchtv1tv2R tv1ctv2ctrangetminRtitint(RRRRRR((RtcomparePerlVersion$s(   %!! t PerlVersioncBsGtZdZdZdZd„Zd„Zd„Zd„Zd„Z RS(Ns perl versions Perl VersionscCsd|idtƒdS(Nsmust be equal to [s ], actually [s].(tselftvalueR(R!((RtstrCscCsxtƒ}|djotdƒ}n<t||iƒ}td|d|id|dj ƒ}|i|i ƒƒ|S(Ns- no perl in $path -s&[perl] is not in the installer's path.sperl version is [s]. It must be [s].i( RtpvtReasontrRR!R"ttmptsatsettok(R!R'R$R&((Rt satisfiedDs  )cCs |iƒS(N(R!R*(R!((Rt satisfiableOscCs |iƒS(N(R!R*(R!((RtacquireQscCstƒS(N(R%(R!((RtretractRs( t__name__t __module__ttypettitletactionR#R*R+R,R-(((RR >s   t PerlVersionLEcBs,tZdZdZdZd„Zd„ZRS(Nsperl version <=sperl version <=scCsd|idtƒdS(Nt[s ], actually [s].(R!R"R(R!((RR#YscCs…tƒ}|djotdƒ}nIt||iƒ}td|d|id|djp |dj ƒ}|i|i ƒƒ|S(Ns- no perl in $path -s&[perl] is not in the installer's path.sperl version [s] must be <= [s].iiÿÿÿÿ( RR$R%R&RR!R"R'R(R)(R!R'R$R&((RR*Zs  6(R.R/R0R1R2R#R*(((RR3Ts  t PerlVersionLTcBs,tZdZdZdZd„Zd„ZRS(Nsperl version =sperl version >=scCsd|idtƒdS(NR4s ], actually [s].(R!R"R(R!((RR#}scCs…tƒ}|djotdƒ}nIt||iƒ}td|d|id|djp |dj ƒ}|i|i ƒƒ|S(Ns- no perl in $path -s&[perl] is not in the installer's path.sperl version [s] must be >= [s].ii( RR$R%R&RR!R"R'R(R)(R!R'R$R&((RR*~s  6(R.R/R0R1R2R#R*(((RR6xs  t PerlVersionGTcBs,tZdZdZdZd„Zd„ZRS(Nsperl version >sperl version >scCsd|idtƒdS(NR4s ], actually [s].(R!R"R(R!((RR#scCsxtƒ}|djotdƒ}n<t||iƒ}td|d|id|dj ƒ}|i|i ƒƒ|S(Ns- no perl in $path -s&[perl] is not in the installer's path.sperl version [s ] must be > [s].i( RR$R%R&RR!R"R'R(R)(R!R'R$R&((RR*s  )(R.R/R0R1R2R#R*(((RR7Šs  ( t StringAttrRRRRRRR R3R5R6R7( R7R5RRRRR6R3R ((Rt?s