Franco Silvestro <[EMAIL PROTECTED]> writes:
> 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)
well, sorry, was about the hd.img install and /mnt/hd mount point :-~
>
> With drakxtools-1.1.5-4mdk.i586.rpm
>
> It goes 100% cpu and don't exit as in installer....;o(
as for printerdrake, i know fpons worked on it yesterday. He may be
interested?...
>
> 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]
