cmd/show/program.pl

   1 #
   2 # show where I have included stuff from so far
   3 #
   4 # Copyright (c) 1998 Dirk Koopman G1TLH
   5 #
   6 #
   7 #
   8 my $self = shift;
   9 return (1, $self->msg('e5')) if $self->priv < 5;
  10 my @in = sort keys %INC;
  11 my @out = ("Locations of included Program Modules");
  12 for (@in) {
  13         push @out, "$_ => $INC{$_}" if $INC{$_} =~ /spider/o;
  14 }
  15
  16 return (1, @out);