On Mon, 28 Aug 2000, you wrote:
> i upload a fixed drakx, can you tell if it works?
> (didn't test yet, will do if it still fails)
> thanks, cu Pixel.
I think you want info about printerdrake ???...;o)
With drakxtools-1.1.5-4mdk.i586.rpm
It goes 100% cpu and don't exit as in installer....;o(
Hoping can help I try with:
perl -d /usr/sbin/printerdrake
......
Passed parameter for remote printer as in install (IP addr and
PASSTHROUGH)..... and then it seems goes in loop with 100% CPU no
return....;o(
.......
Exporter::heavy_export(/usr/lib/perl5/5.6.0/Exporter/Heavy.pm:102):
102: foreach $sym (@imports) {
DB<2> s
Exporter::heavy_export(/usr/lib/perl5/5.6.0/Exporter/Heavy.pm:125):
125: if ($oops) {
DB<2> s
Exporter::heavy_export(/usr/lib/perl5/5.6.0/Exporter/Heavy.pm:134):
134: *fail = *{"${pkg}::EXPORT_FAIL"};
DB<2> s
Exporter::heavy_export(/usr/lib/perl5/5.6.0/Exporter/Heavy.pm:134):
134: *fail = *{"${pkg}::EXPORT_FAIL"};
DB<2> s
Exporter::heavy_export(/usr/lib/perl5/5.6.0/Exporter/Heavy.pm:135):
135: if (@fail) {
DB<2> s
Exporter::heavy_export(/usr/lib/perl5/5.6.0/Exporter/Heavy.pm:160):
160: warn "Importing into $callpkg from $pkg: ",
161: join(", ",sort @imports) if $Verbose;
DB<2> s
Exporter::heavy_export(/usr/lib/perl5/5.6.0/Exporter/Heavy.pm:163):
163: foreach $sym (@imports) {
DB<2> s
Exporter::heavy_export(/usr/lib/perl5/5.6.0/Exporter/Heavy.pm:165):
165: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next)
166: unless $sym =~ s/^(\W)//;
DB<2> s
Exporter::heavy_export(/usr/lib/perl5/5.6.0/Exporter/Heavy.pm:165):
165: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next)
166: unless $sym =~ s/^(\W)//;
DB<2> s
Exporter::heavy_export(/usr/lib/perl5/5.6.0/Exporter/Heavy.pm:165):
165: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next)
166: unless $sym =~ s/^(\W)//;
DB<2> s
Exporter::heavy_export(/usr/lib/perl5/5.6.0/Exporter/Heavy.pm:165):
165: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next)
166: unless $sym =~ s/^(\W)//;
DB<2> s
Exporter::heavy_export(/usr/lib/perl5/5.6.0/Exporter/Heavy.pm:165):
165: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next)
166: unless $sym =~ s/^(\W)//;
DB<2> s
Exporter::heavy_export(/usr/lib/perl5/5.6.0/Exporter/Heavy.pm:165):
165: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next)
166: unless $sym =~ s/^(\W)//;
DB<2> s
Exporter::heavy_export(/usr/lib/perl5/5.6.0/Exporter/Heavy.pm:165):
165: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next)
166: unless $sym =~ s/^(\W)//;
DB<2> s
Exporter::heavy_export(/usr/lib/perl5/5.6.0/Exporter/Heavy.pm:165):
165: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next)
166: unless $sym =~ s/^(\W)//;
DB<2> n
Exporter::heavy_export(/usr/lib/perl5/5.6.0/Exporter/Heavy.pm:165):
165: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next)
166: unless $sym =~ s/^(\W)//;
DB<2> n
Exporter::heavy_export(/usr/lib/perl5/5.6.0/Exporter/Heavy.pm:165):
165: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next)
166: unless $sym =~ s/^(\W)//;
DB<2> n
Exporter::heavy_export(/usr/lib/perl5/5.6.0/Exporter/Heavy.pm:165):
165: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next)
166: unless $sym =~ s/^(\W)//;
DB<2> n
Exporter::heavy_export(/usr/lib/perl5/5.6.0/Exporter/Heavy.pm:165):
165: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next)
166: unless $sym =~ s/^(\W)//;
DB<2> n
Exporter::heavy_export(/usr/lib/perl5/5.6.0/Exporter/Heavy.pm:165):
165: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next)
166: unless $sym =~ s/^(\W)//;
DB<2> n
Exporter::heavy_export(/usr/lib/perl5/5.6.0/Exporter/Heavy.pm:165):
165: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next)
166: unless $sym =~ s/^(\W)//;
DB<2> n
Exporter::heavy_export(/usr/lib/perl5/5.6.0/Exporter/Heavy.pm:165):
165: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next)
166: unless $sym =~ s/^(\W)//;
DB<2> n
Exporter::heavy_export(/usr/lib/perl5/5.6.0/Exporter/Heavy.pm:165):
165: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next)
166: unless $sym =~ s/^(\W)//;
DB<2> n
Exporter::heavy_export(/usr/lib/perl5/5.6.0/Exporter/Heavy.pm:165):
165: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next)
166: unless $sym =~ s/^(\W)//;
DB<2> n
Exporter::heavy_export(/usr/lib/perl5/5.6.0/Exporter/Heavy.pm:165):
165: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next)
166: unless $sym =~ s/^(\W)//;
DB<2> s
Exporter::heavy_export(/usr/lib/perl5/5.6.0/Exporter/Heavy.pm:165):
165: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next)
166: unless $sym =~ s/^(\W)//;
DB<2> s
Exporter::heavy_export(/usr/lib/perl5/5.6.0/Exporter/Heavy.pm:165):
165: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next)
166: unless $sym =~ s/^(\W)//;
DB<2> s
Exporter::heavy_export(/usr/lib/perl5/5.6.0/Exporter/Heavy.pm:165):
165: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next)
166: unless $sym =~ s/^(\W)//;
DB<2>
Exporter::heavy_export(/usr/lib/perl5/5.6.0/Exporter/Heavy.pm:165):
165: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next)
166: unless $sym =~ s/^(\W)//;
DB<2>
Exporter::heavy_export(/usr/lib/perl5/5.6.0/Exporter/Heavy.pm:165):
165: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next)
166: unless $sym =~ s/^(\W)//;
DB<2> s
Exporter::heavy_export(/usr/lib/perl5/5.6.0/Exporter/Heavy.pm:165):
165: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next)
166: unless $sym =~ s/^(\W)//;
DB<2> s
Exporter::heavy_export(/usr/lib/perl5/5.6.0/Exporter/Heavy.pm:165):
165: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next)
166: unless $sym =~ s/^(\W)//;
DB<2> s
Exporter::heavy_export(/usr/lib/perl5/5.6.0/Exporter/Heavy.pm:165):
165: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next)
166: unless $sym =~ s/^(\W)//;
DB<2> T
$ = Exporter::heavy_export('common', undef, ref(Term::ReadLine::Gnu::Var),
undef, ref(Term::ReadLine::Gnu::Var), undef, ref(Term::ReadLine::Gnu::Var),
undef, ref(Term::ReadLine::Gnu::Var), undef, ref(Term::ReadLine::Gnu::Var),
undef, ref(Term::ReadLine::Gnu::Var), undef, ref(Term::ReadLine::Gnu::Var),
undef, ref(Term::ReadLine::Gnu::Var), undef, ref(Term::ReadLine::Gnu::Var),
undef, ref(Term::ReadLine::Gnu::Var), undef,... called from file
`/usr/lib/perl5/5.6.0/Exporter.pm' line 50
$ = Exporter::import(undef, 'common', ':common', ':functional') called from
file `/usr/lib/libDrakX/interactive_gtk.pm' line 10
$ = interactive_gtk::BEGIN(undef) called from file
`/usr/lib/libDrakX/interactive_gtk.pm' line 0
$ = require '0' called from file `/usr/lib/libDrakX/interactive_gtk.pm' line 0
$ = require 'interactive_gtk.pm' called from file
`/usr/lib/libDrakX/interactive.pm' line 50
$ = interactive::vnew('interactive', 'su') called from file
`/usr/sbin/printerdrake' line 45
DB<2> n
Exporter::heavy_export(/usr/lib/perl5/5.6.0/Exporter/Heavy.pm:165):
165: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next)
166: unless $sym =~ s/^(\W)//;
P.S. Sorry, is the first time that I use perl debugger... I hope can
help....:o/
--
-
Franco Silvestro
c/o CeSIA - Universita' degli Studi di Bologna
mailto:[EMAIL PROTECTED]
