From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <vsu@altlinux.ru>
Date: Sat, 28 Jan 2006 23:35:39 +0300
From: Sergey Vlasov <vsu@altlinux.ru>
To: ALT Devel discussion list <devel@lists.altlinux.org>
Message-ID: <20060128203539.GC8752@procyon.home>
Mime-Version: 1.0
Content-Type: multipart/signed; micalg=pgp-sha1;
	protocol="application/pgp-signature"; boundary="uh9ZiVrAOUUm9fzH"
Content-Disposition: inline
Subject: [devel] perl.req and strange use wrappers
X-BeenThere: devel@lists.altlinux.org
X-Mailman-Version: 2.1.5
Precedence: list
Reply-To: ALT Devel discussion list <devel@lists.altlinux.org>
List-Id: ALT Devel discussion list <devel.lists.altlinux.org>
List-Unsubscribe: <https://lists.altlinux.org/mailman/listinfo/devel>,
	<mailto:devel-request@lists.altlinux.org?subject=unsubscribe>
List-Archive: <http://lists.altlinux.org/pipermail/devel>
List-Post: <mailto:devel@lists.altlinux.org>
List-Help: <mailto:devel-request@lists.altlinux.org?subject=help>
List-Subscribe: <https://lists.altlinux.org/mailman/listinfo/devel>,
	<mailto:devel-request@lists.altlinux.org?subject=subscribe>
X-List-Received-Date: Sat, 28 Jan 2006 20:36:03 -0000
Archived-At: <http://lore.altlinux.org/devel/20060128203539.GC8752@procyon.home/>
List-Archive: <http://lore.altlinux.org/devel/>
List-Post: <mailto:devel@altlinux.org>


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

Hello!

=F7 fvwm-perl (/usr/share/fvwm/perllib/FVWM/Module/Toolkit.pm)
=CF=C2=CE=C1=D2=D5=D6=C9=CC=D3=D1 =D3=CC=C5=C4=D5=C0=DD=C9=CA =CB=D5=D3=CF=
=CB =CB=CF=C4=C1:

=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
sub import ($@) {
	my $class =3D shift;
	my $caller =3D caller;
	my $error =3D 0;
	my $name =3D "*undefined*";

	while (@_) {
		$name =3D shift;
		if ($name eq 'base') {
			next if UNIVERSAL::isa($caller, __PACKAGE__);
			my $caller2 =3D (caller(1))[0];
			eval "
				package $caller2;
				use FVWM::Constants;

				package $caller;
				use vars qw(\$VERSION \@ISA);
				use FVWM::Constants;
				\$VERSION =3D \$FVWM::Module::Toolkit::VERSION;
				\@ISA =3D qw(FVWM::Module::Toolkit);
			";
			if ($@) {
				die "Internal error:\n$@";
			}
		} else {
			my ($name0, $args) =3D split(/>?=3D/, $name, 2);
			my $mod =3D $args? "$name0 split(/,/, q{$args})": $name;
			eval "
				package $caller;
				use $mod;
			";
			if ($@) {
				$error =3D 1;
				last;
			}
		}
	}
	if ($error) {
		my $scriptName =3D $0; $scriptName =3D~ s|.*/||;
		my $errorTitle =3D 'FVWM Perl library error';
		my $errorMsg =3D "$scriptName requires Perl package $name to be installed=
.\n\n";
		$errorMsg .=3D "You may either find it as a binary package for your distr=
ibution\n";
		$errorMsg .=3D "or download it from CPAN, http://cpan.org/modules/by-modu=
le/ .\n";
		$class->showMessage($errorMsg, $errorTitle, 1);
		print STDERR "[$errorTitle]: $errorMsg\n$@";
		exit(1);
	}
}
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D

=E9=D3=D0=CF=CC=D8=DA=D5=C5=D4=D3=D1 =DC=D4=CF, =CE=C1=D0=D2=C9=CD=C5=D2, =
=D4=C1=CB=C9=CD =CF=C2=D2=C1=DA=CF=CD:

use FVWM::Module::Toolkit qw(FileHandle IO::Select X11::Protocol>=3D0.52 Tk=
>=3D804.025 Tk::Balloon Tk::DragDrop Tk::DropSite Tk::LabFrame Tk::BrowseEn=
try Tk::PNG);

=F7 =D2=C5=DA=D5=CC=D8=D4=C1=D4=C5 perl.req =CE=C5 =D7=C9=C4=C9=D4 =D4=C1=
=CB=C9=C8 =DA=C1=D7=C9=D3=C9=CD=CF=D3=D4=C5=CA.

=F3 =DC=D4=C9=CD =D7=CF=CF=C2=DD=C5 =CB=C1=CB-=D4=CF =CD=CF=D6=CE=CF =C2=CF=
=D2=CF=D4=D8=D3=D1 =C3=C5=CE=D4=D2=C1=CC=C9=DA=CF=D7=C1=CE=CE=CF (=D4.=C5.,=
 =DA=C1=D0=C1=D4=DE=C9=D7
=DC=D4=CF=D4 =D3=C1=CD=D9=CA sub import =D7 FVWM::Module::Toolkit)?  =E9=CC=
=C9 =C5=C4=C9=CE=D3=D4=D7=C5=CE=CE=D9=CA
=D3=D0=CF=D3=CF=C2 - =CE=C1=D0=C9=D3=C1=D4=D8 =D7 =D4=CF=CD =CD=C5=D3=D4=C5=
, =C7=C4=C5 =D3=D4=CF=C9=D4 use FVWM::Module::Toolkit,
=CE=CF=D2=CD=C1=CC=D8=CE=D9=C5 use =CE=C1 =D7=D3=C5 =C9=D3=D0=CF=CC=D8=DA=
=D5=C5=CD=D9=C5 =CD=CF=C4=D5=CC=C9?

--=20
Sergey Vlasov

--uh9ZiVrAOUUm9fzH
Content-Type: application/pgp-signature
Content-Disposition: inline

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

iD8DBQFD29WaW82GfkQfsqIRAmhrAJ9uZ/gXhIXcYzG4ThMZ7HMpjZdhFgCggAZt
aOcQuI6L3tocyjsLv5Enq6I=
=Phar
-----END PGP SIGNATURE-----

--uh9ZiVrAOUUm9fzH--