From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Date: Sat, 2 Apr 2005 23:57:56 +0400 From: Alexey Tourbin To: ALT Devel discussion list Message-ID: <20050402195755.GG12494@solemn.turbinal.org> Mail-Followup-To: ALT Devel discussion list References: <1111843328.1554.10.camel@alpha.fastlink.ru> <20050326181628.07c71573@naf177.naf.net.ru> <1111849947.1559.19.camel@alpha.fastlink.ru> <20050326184136.3b0c0be5@naf177.naf.net.ru> <1111852061.27934.2.camel@alpha.fastlink.ru> <20050402184859.GE12494@solemn.turbinal.org> Mime-Version: 1.0 Content-Type: multipart/signed; micalg=pgp-sha1; protocol="application/pgp-signature"; boundary="QWpDgw58+k1mSFBj" Content-Disposition: inline In-Reply-To: <20050402184859.GE12494@solemn.turbinal.org> Subject: [devel] Re: Perl =?koi8-r?b?zc/E1czJ?= 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: Sat, 02 Apr 2005 21:05:08 -0000 Archived-At: List-Archive: List-Post: --QWpDgw58+k1mSFBj Content-Type: text/plain; charset=koi8-r Content-Disposition: inline Content-Transfer-Encoding: quoted-printable On Sat, Apr 02, 2005 at 10:48:59PM +0400, Alexey Tourbin wrote: > On Sat, Mar 26, 2005 at 06:47:41PM +0300, =F7=D1=DE=C5=D3=CC=C1=D7 =E4=C9= =CB=CF=CE=CF=D7 wrote: > > # WARNING: failed to extract version > > at /home/slava/.tmp/perl-SOAP-Lite-buildroot/usr/lib/perl5/vendor_perl/= Apache/SOAP.pm line 18: > > # $VERSION =3D sprintf("%d.%s", map {s/_//g; $_} q$Name: > > release-0_60-public $ =3D~ /-(\d+)_([\d_]+)/); > > # 'map' trapped by operation mask at (eval 3) line 1, <$fh> line 18. >=20 > =FC=D4=CF =C9=DA-=DA=C1 Safe->reval =D7 perl.prov. =F4=CF =C5=D3=D4=D8 m= ap =C2=D9=CC =CF=D4=CE=C5=D3=C5=CE > =CB "=CE=C5=CE=C1=C4=C5=D6=CE=D9=CD" =CF=D0=CB=CF=C4=C1=CD. =F4=CF =C5= =D3=D4=D8 =D7 `Porivdes: perl(Apache/SOAP.pm)' > =C9 =C4=D2. =D7=C5=D2=D3=C9=C9 =CE=C5 =C2=D5=C4=C5=D4. =EE=C1 =DC=D4=CF = =D0=CF=CB=C1 =CD=CF=D6=CE=CF =DA=C1=C2=C9=D4=D8. =E1 =D7=C5=C4=D8 =DC=D4=CF =D1 =D2=C1=DA=CC=CF=CD=C1=CC. =EB=CF=C7=C4=C1-= =D4=CF =D2=C1=C2=CF=D4=C1=CC=CF: http://lists.altlinux.ru/pipermail/devel/2001-May/002823.html =F4=CF =C5=D3=D4=D8 =D1 =D2=C5=DB=C9=CC =CF=D4=CB=CC=C0=DE=C9=D4=D8 "entere= val grepstart grepwhile mapstart mapwhile" =C4=CF =D4=C5=C8 =D0=CF=D2, =D0=CF=CB=C1 =DE=D4=CF-=CE=C9=C2=D5= =C4=D8 =CE=C5 =D3=CC=CF=CD=C1=C5=D4=D3=D1, =D4.=CB. =D5 =CD=C5=CE=D1 =CC=CF= =CB=C1=CC=D8=CE=CF =CE=C1 =C2=CF=CC=D8=DB=CF=CD =DE=C9=D3=CC=C5 =CD=CF=C4=D5=CC=C5=CA =CE=C9= =DE=C5=C7=CF =CE=C5 =D3=CC=CF=CD=C1=CC=CF=D3=D8. =EB=D3=D4=C1=D4=C9, =D0=CF =DC=D4=CF=CA =D3=D3=D9=CC=CB=C5 =D7=C9=C4=CE=C1 = =C5=DD=A3 =CF=C4=CE=C1 (=D5=D6=C5 =C9=D3=D0=D2=C1=D7=CC=C5=CE=CE=C1=D1) =CF= =DB=C9=C2=CB=C1: =09 my $version =3D $safe->reval("$line; \$VERSION;"); =FE=D4=CF =C5=D3=CC=C9 $line =DA=C1=CB=C1=CE=DE=C9=D7=C1=C5=D4=D3=D1 =CB=CF= =CD=CD=C5=CE=D4=C1=D2=C9=C5=CD? =F0=D2=C1=D7=C9=CC=D8=CE=CF, $VERSION =D4= =CF=D6=C5 =CF=CB=C1=D6=C5=D4=D3=D1 =D7 =CB=CF=CD=CD=C5=CE=D4=C1=D2=C9=C9. =F0=D2=C1= =D7=C9=CC=D8=CE=CF =D4=C1=CB: my $version =3D $safe->reval("$line\n; \$VERSION;"); =F7=C5=D2=CE=C5=C5, =DC=D4=CF =CE=C1=D7=C5=D2=CE=CF=C5 =D2=C1=C2=CF=D4=C1= =CC=CF, =D4.=CB. $line =DA=C1=CB=C1=CE=DE=C9=D7=C1=CC=D3=D1 =CE=C1 \n. =E1 =CB=CF=C7=C4=C1 =D1 =D3=C4=C5=CC=C1=CC chomp, =D4=CF =D2=C1=C2=CF=D4=C1= =D4=D8 =D0=C5=D2=C5=D3=D4=C1=CC=CF. =E5=DD=A3 =D0=CF =CE=C5=D3=CB=CF=CC=D8=CB=C9=CD =C7=D2=C1=C2=CC=D1=CD =D0= =D2=CF=DB=C5=CC=D3=D1: if ((m/^=3D(head[12]|pod|over|item|for|begin)/) .. (m/^=3D(cut)/)) { next; } =F7 =CE=C5=CB=CF=D4=CF=D2=D9=C8 =C6=C1=CA=CC=C1=C8 =D7=D3=D1 =C4=CF=CB=D5= =CD=C5=CE=D4=C1=C3=C9=D1 =CE=C1=C8=CF=C4=C9=D4=D3=D1 =D7 =D3=C1=CD=CF=CD = =CE=C9=DA=D5 =C9 *=CE=C5 =DA=C1=CB=C1=CE=DE=C9=D7=C1=C5=D4=D3=D1* =CE=C1 =3Dcut (=DE=D4=CF =C4=CF=D0= =D5=D3=D4=C9=CD=CF). =F4=CF=C7=C4=C1 =C4=C5=CA=D3=D4=D7=C9=C5 =DC=D4=CF=C7= =CF =D5=D3=CC=CF=D7=C9=D1 =D0=C5=D2=C5=CB=C9=C4=D9=D7=C1=C5=D4=D3=D1 =CE=C1 =D3=CC=C5=C4=D5=C0=DD=C9= =CA =C6=C1=CA=CC =C4=CF =C2=CC=C9=D6=C1=CA=DB=C5=C7=CF =3Dcut. =F3=C5=CA= =DE=C1=D3 =D4=C1=CB: next if /^=3D\w/ .. (/^=3Dcut/ or eof); =F0=D2=D1=CD=CF =CE=C1 =DC=D4=CF =CD=C5=D3=D4=C5 =C5=DD=A3 =CF=C4=CE=D5 =C7= =D2=C1=C2=CC=C0 =DA=C1=CD=C5=D4=C9=CC: eof =C2=C5=DA =D3=CB=CF=C2=CF=CB =C9= eof() =D3=CF =D3=CB=CF=C2=CB=C1=CD=C9 =D7=C5=C4=C5=D4 =D3=C5=C2=D1 =D3=CF=D7=C5=D2=DB=C5= =CE=CE=CF =D0=CF-=D2=C1=DA=CE=CF=CD=D5 (=D3=CD. perldoc -f eof). --QWpDgw58+k1mSFBj Content-Type: application/pgp-signature Content-Disposition: inline -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.2.5 (GNU/Linux) iD8DBQFCTvlDfBKgtDjnu0YRArvRAJ45P2Fchgd+dG8jeOGBbx2UBYBnewCfZxIN hkxXcRId9BHo0BtWTvgY7bA= =w7uA -----END PGP SIGNATURE----- --QWpDgw58+k1mSFBj--