From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Date: Wed, 8 Dec 2004 09:53:27 +0300 From: Alexey Tourbin To: ALT Devel discussion list Message-ID: <20041208065327.GI30266@solemn.turbinal.org> Mail-Followup-To: ALT Devel discussion list References: <20041206020618.GB21157@solemn.turbinal.org> <20041208033639.GG30266@solemn.turbinal.org> <20041208051212.GA7019@immo.ru> <20041208061207.GH30266@solemn.turbinal.org> Mime-Version: 1.0 Content-Type: multipart/signed; micalg=pgp-sha1; protocol="application/pgp-signature"; boundary="2E/hm+v6kSLEYT3h" Content-Disposition: inline In-Reply-To: <20041208061207.GH30266@solemn.turbinal.org> Subject: [devel] Re: I: rpm-build-perl-0.5 X-BeenThere: devel@altlinux.ru X-Mailman-Version: 2.1.5 Precedence: list Reply-To: ALT Devel discussion list List-Id: ALT Devel discussion list List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Wed, 08 Dec 2004 06:54:52 -0000 Archived-At: List-Archive: List-Post: --2E/hm+v6kSLEYT3h Content-Type: text/plain; charset=koi8-r Content-Disposition: inline Content-Transfer-Encoding: quoted-printable On Wed, Dec 08, 2004 at 09:12:07AM +0300, Alexey Tourbin wrote: > On Wed, Dec 08, 2004 at 08:12:12AM +0300, Alexey I. Froloff wrote: > > =EB=D3=D4=C1=D4=C9, =C1 =D4=C1=CB=C1=D1 =D0=D2=CF=C2=CC=C5=CD=C1 =D7 = =CE=CF=D7=CF=CD r-b-p =D2=C5=DB=C5=CE=C1? > >=20 > > use constant MP2 =3D> $mod_perl::VERSION >=3D 1.99; > > =20 > > BEGIN { > > my @constants =3D qw( OK AUTH_REQUIRED FORBIDDEN DECLINED SERVER_ERRO= R ); > > if (MP2) { > > require Apache::Const; > > import Apache::Const @constants; > > } > > else { > > require Apache::Constants; > > import Apache::Constants @constants; > > } > > } > >=20 > > =F0=CF=D3=CC=C5 =DE=C5=C7=CF =D7 Requires =D0=CF=D0=C1=C4=C1=C0=D4 =C9 = Apache::Const =C9 > > Apache::Constants. =FC=D4=CF perl-Apache-DBI 0.94, =D3=CF=C2=C9=D2=C1= =CC =D3=C1=CD =C4=CC=D1 > > 2.2. >=20 > =E4=D5=CD=C1=C0, =DE=D4=CF =D2=C5=DB=C5=CE=C1, =D4.=CB. =CB=CF=CE=D3=D4= =C1=CE=D4=CE=D9=C5 =C6=D5=CE=CB=C3=C9=C9 =D3 =D0=D5=D3=D4=D9=CD =D0=D2=CF= =D4=CF=D4=C9=D0=CF=CD > =D0=CF=C4=D3=D4=C1=D7=CC=D1=C0=D4=D3=D1 =CE=C1 =D3=D4=C1=C4=C9=C9 =CB=CF= =CD=D0=C9=CC=D1=C3=C9=C9 (perlsub/Constant Functions), =C1 =D0=CF=D4=CF=CD > =D0=CF =C4=C5=D2=C5=D7=D5 =D0=D2=CF=C8=CF=C4=C9=D4=D3=D1 =CF=D0=D4=C9=CD= =C9=DA=C1=D4=CF=D2 (perlguts/constant folding). >=20 > $ perl -MO=3DConcise,-terse -e 'sub true(){1} if(true){require "asdf"} el= se{require "zxcv"}' > LISTOP (0x80662c0) leave [1] > OP (0x804fc88) enter > COP (0x80661e0) nextstate > LISTOP (0x8066420) scope > OP (0x804fce0) null [174] > UNOP (0x80663c8) require > SVOP (0x80662f8) const [1] PV (0x80643f0) "asdf" > -e syntax OK > $ =E9=CE=D9=CD=C9 =D3=CC=CF=D7=C1=CD=C9, =C5=D3=CC=C9 =D7 =D4=CF=CD =CB=CF=C4= =C5, =CB=CF=D4=CF=D2=D9=CA =D4=D9 =D0=D2=C9=D7=A3=CC, =D4=CF=CC=D8=CB=CF = =DE=D5=D4=D8 =D7=D9=DB=C5, =C5=D3=D4=D8 "use mod_perl;", =D4=CF =D2=C5=DA=D5=CC=D8=D4=C1=D4 =C2=D5=C4= =C5=D4 =DA=C1=D7=C9=D3=C5=D4=D8 =CF=D4 =D7=C5=D2=D3=C9=C9 mod_perl'=C1 =D7 =D3=C2=CF=D2=CF=DE=CE=CF=CA =D3=D2=C5=C4=C5. =E9=CE=C1=DE=C5 =D2=C5=DA= =D5=CC=D8=D4=C1=D4 =D7=D3=C5=C7=C4=C1 =C2=D5=C4=C5=D4 =D0=CF =D7=C5=D4=CB= =C5 else, =D4.=CB. $mod_perl::VERSION =C4=C1=A3=D4 undef =C9 undef >=3D 1.99 =C4=C1=A3=D4 fals= e. --2E/hm+v6kSLEYT3h Content-Type: application/pgp-signature Content-Disposition: inline -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.2.5 (GNU/Linux) iD8DBQFBtqTnfBKgtDjnu0YRArQ/AJ4xt+nQTg5/whT0VcnSNwgB2wG9FACgq2sM kC4ucq8quNX6oHNdos6qxw0= =jTBP -----END PGP SIGNATURE----- --2E/hm+v6kSLEYT3h--