Re: Perl debugger fixes bug, now i've got a perl debugger to get rid of.

can't help you too much without seeing any code

Update: Logic errors maybe present in your code which no debugger will pick-up can't tell if we can't see the code

"Cogito cogito ergo cogito sum - I think that I think, therefore I think that I am." Ambrose Bierce

Comment on Re: Perl debugger fixes bug, now i've got a perl debugger to get rid of.

Replies are listed 'Best First'.
Re: Re: Perl debugger fixes bug, now i've got a perl debugger to get rid of. by emeitner (Novice) on Feb 22, 2004 at 20:11 UTC
Code or no code, the fact remains that the script behaves differently when run in the debugger. #!/usr/bin/perl -w use Net::LDAP; use strict; my $ldap = Net::LDAP->new( "ldap://server/", debug=>15, version=>3, async => 1 , onerror => 'warn' ); die "new(): $@" if !$ldap; my $result = $ldap->bind(); die "bind(): $@\n" if $result->code; $result = $ldap->search( base => "dc=zzzz,dc=com", filter => "(&(objectclass=posixAccount) )", attrs=>['uid'] ); die "search(): $@\n" if $result->code; print "Results:\n"; foreach my $entry ( $result->entries) { $entry->dump; } $ldap->unbind(); $ldap->disconnect(); [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re: Re: Perl debugger fixes bug, now i've got a perl debugger to get rid of.
by emeitner (Novice) on Feb 22, 2004 at 20:11 UTC

behaves differently when run in the debugger

#!/usr/bin/perl  -w

use Net::LDAP;
use strict;

my $ldap = Net::LDAP->new(
        "ldap://server/",
        debug=>15,
        version=>3,
        async => 1 ,
        onerror => 'warn'  );
die "new(): $@" if !$ldap;


my $result = $ldap->bind();
die "bind(): $@\n" if  $result->code;

$result = $ldap->search(
        base => "dc=zzzz,dc=com",
        filter => "(&(objectclass=posixAccount) )",
        attrs=>['uid'] );
die "search(): $@\n" if $result->code;

print "Results:\n";

foreach my $entry ( $result->entries) {
        $entry->dump;
}

$ldap->unbind();
$ldap->disconnect();
[download]

[reply]
[d/l]