perl -d uid_check.pl

Loading DB routines from perl5db.pl version 1.22
Editor support available.

Enter h or `h h' for help, or `man perldebug' for more help.

main::(uid_check.pl:22):        $ENV{"PATH"} = qq(/usr/bin:/bin:/home/dbsmith:/home/dbsmith/McGaw);
  DB<1> n
main::(uid_check.pl:23):        delete @ENV{qw (IFS CDPATH ENV KSH_ENV BASH_ENV)};
  DB<1> n
main::(uid_check.pl:27):        open (LOG, ">>/tmp/uid_ck.log") or warn "uid_ck.log did not open $!";
  DB<1> n
main::(uid_check.pl:29):        my $overide = $SIG{__DIE__};    ## get error handler currently assigned 2 die
main::(uid_check.pl:30):        $SIG{__DIE__} = sub {
  DB<1> n
main::(uid_check.pl:34):        };
  DB<1> n
main::(uid_check.pl:38):        my @dublinaray  = glob("/home/dbsmith/passwd.*");
  DB<1> n
main::(uid_check.pl:39):        my $dublin_aref = \@dublinaray;
  DB<1> n
main::(uid_check.pl:40):        my @mcgawaray   = glob("/home/dbsmith/McGaw/passwd.*");
  DB<1> n
main::(uid_check.pl:41):        my $mcgaw_aref  = \@mcgawaray;
  DB<1> n
main::(uid_check.pl:42):        my (%dublin_hosts,%mcgaw_hosts) = ();
  DB<1> n
main::(uid_check.pl:43):        my (@tmp_values,@dub_values,)   = ();
  DB<1> n
main::(uid_check.pl:44):        my ($dub_key,$name,$uid,$gid,$cmts,$mcg_key,$dub_values);
  DB<1> n
main::(uid_check.pl:52):            foreach my $element ( @{$dublin_aref} ) {
  DB<1> n
main::(uid_check.pl:52):            foreach my $element ( @{$dublin_aref} ) {
  DB<1> n
main::(uid_check.pl:53):               { local *FILE;
  DB<1> n
main::(uid_check.pl:53):               { local *FILE;
  DB<1> n
main::(uid_check.pl:54):                open (FILE, "+<$element") or die "dublin file '$element' did not open: $!";
  DB<1> n
main::(uid_check.pl:55):                local $/      = undef;
  DB<1> n
main::(uid_check.pl:56):                ($dub_key)    = $element =~ m|\.(\w+\.\w+)\z|i;
  DB<1> n
main::(uid_check.pl:57):                ($name) = (split /:/, <FILE>) [0];  ## ONLY ONE THAT WORKS ##
  DB<1> print $dub_key;
admbakp1.hpux
  DB<2> n
main::(uid_check.pl:58):                ($uid)  = (split /:/, <FILE>) [2];
  DB<2> print $name;
root
  DB<3> n
main::(uid_check.pl:59):                ($gid)  = (split /:/, <FILE>) [3];
  DB<3> print $uid;
Use of uninitialized value in print at (eval
        31)[/opt/perl/lib/5.8.2/perl5db.pl:618] line 2, <FILE> chunk 1 (#1)
    (W uninitialized) An undefined value was used as if it were already
    defined.  It was interpreted as a "" or a 0, but maybe it was a mistake.
    To suppress this warning assign a defined value to your variables.

    To help you figure out what was undefined, perl tells you what operation
    you used the undefined value in.  Note, however, that perl optimizes your
    program and the operation displayed in the warning may not necessarily
    appear literally in your program.  For example, "that $foo" is
    usually optimized into "that " . $foo, and the warning will refer to
    the concatenation (.) operator, even though there is no . in your
    program.

Use of uninitialized value in print at (eval 31)[/opt/perl/lib/5.8.2/perl5db.pl:618] line 2, <FILE> chunk 1.
        diagnostics::warn_trap('Use of uninitialized value in print at (eval 31)[/opt/perl/li...') called at (eval 31)[/opt/perl/lib/5.8.2/perl5db.pl:618] line 2
        eval '($@, $!, $^E, $,, $/, $\\, $^W) = @saved;package main; $^D = $^D | $DB::db_stop;
print $uid;;

;' called at /opt/perl/lib/5.8.2/perl5db.pl line 618
        DB::eval called at /opt/perl/lib/5.8.2/perl5db.pl line 3314
        DB::DB called at uid_check.pl line 59

  DB<4> q