From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <at@altlinux.ru>
Date: Wed, 8 Dec 2004 09:12:07 +0300
From: Alexey Tourbin <at@altlinux.ru>
To: ALT Devel discussion list <devel@altlinux.ru>
Message-ID: <20041208061207.GH30266@solemn.turbinal.org>
Mail-Followup-To: ALT Devel discussion list <devel@altlinux.ru>
References: <20041206020618.GB21157@solemn.turbinal.org>
	<20041208033639.GG30266@solemn.turbinal.org>
	<20041208051212.GA7019@immo.ru>
Mime-Version: 1.0
Content-Type: multipart/signed; micalg=pgp-sha1;
	protocol="application/pgp-signature"; boundary="27ZtN5FSuKKSZcBU"
Content-Disposition: inline
In-Reply-To: <20041208051212.GA7019@immo.ru>
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 <devel@altlinux.ru>
List-Id: ALT Devel discussion list <devel.altlinux.ru>
List-Unsubscribe: <https://lists.altlinux.ru/mailman/listinfo/devel>,
	<mailto:devel-request@altlinux.ru?subject=unsubscribe>
List-Archive: <http://lists.altlinux.ru/pipermail/devel>
List-Post: <mailto:devel@altlinux.ru>
List-Help: <mailto:devel-request@altlinux.ru?subject=help>
List-Subscribe: <https://lists.altlinux.ru/mailman/listinfo/devel>,
	<mailto:devel-request@altlinux.ru?subject=subscribe>
X-List-Received-Date: Wed, 08 Dec 2004 06:13:15 -0000
Archived-At: <http://lore.altlinux.org/devel/20041208061207.GH30266@solemn.turbinal.org/>
List-Archive: <http://lore.altlinux.org/devel/>
List-Post: <mailto:devel@altlinux.org>


--27ZtN5FSuKKSZcBU
Content-Type: text/plain; charset=koi8-r
Content-Disposition: inline
Content-Transfer-Encoding: quoted-printable

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_ERROR =
);
>   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 Ap=
ache::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.

=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).

$ perl -MO=3DConcise,-terse -e 'sub true(){1} if(true){require "asdf"} else=
{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
$

$ echo "$=F4=F7=EF=EA_=EB=EF=E4" >mp2.pl
$ perl.req --verbose mp2.pl
# perl(constant.pm) at line 1
# perl(Apache/Constants.pm) at line 10
mp2.pl syntax OK
perl(Apache/Constants.pm)
perl(constant.pm)
$

=F0=CF-=D7=C9=C4=C9=CD=CF=CD=D5, =DC=D4=C1 =D0=D2=CF=C2=CC=C5=CD=C1 =D5=D6=
=C5 =D3 B::Deparse =C2=D9=CC=C1 =D2=C5=DB=C5=CE=C1:

$ perl -MO=3DDeparse mp2.pl
use constant ('MP2', $mod_perl::VERSION >=3D 1.99);
sub BEGIN {
    my(@constants) =3D ('OK', 'AUTH_REQUIRED', 'FORBIDDEN', 'DECLINED', 'SE=
RVER_ERROR');
    do {
        require Apache::Constants;
        'Apache::Constants'->import(@constants)
    };
}
mp2.pl syntax OK
$

--27ZtN5FSuKKSZcBU
Content-Type: application/pgp-signature
Content-Disposition: inline

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.5 (GNU/Linux)

iD8DBQFBtps3fBKgtDjnu0YRApW9AKDF5Va/z+mExMTe+WuCibNbnUULuwCfbUos
qGxJz3i7a1eE2l4G6Yn3kUI=
=jYjx
-----END PGP SIGNATURE-----

--27ZtN5FSuKKSZcBU--