Please use
Pod::Find to find pod (there is no such thing as "Null POD").
Also, you should throw up a splash screen whilst searching for pod on startup,
or simply don't search for it at all, just find perltoc and display it (or provide an option to not search on startup).
Also, this is weird
sub INC_AddPath {
my( $this ) = shift ;
my $dialog = Wx::DirDialog->new($this , "$TITLE - \@INC -> Add PATH"
+ , $LASTDIR ) ;
my $dir ;
if( $dialog->ShowModal == wxID_CANCEL ) { $dir = undef ;}
else { $dir = $dialog->GetPath ;}
$dir =~ s/[\\\/]+/\//gs ;
push(@INC , $dir) ;
Wx::MessageBox("Path Added:\n$dir", "\@INC -> New PATH", wxOK | wxIC
+ON_INFORMATION, $this );
}
Kindly rewrite it like
sub INC_AddPath {
my( $this ) = shift ;
my $dialog = Wx::DirDialog->new($this , "$TITLE - \@INC -> Add PATH"
+ , $LASTDIR ) ;
return if $dialog->ShowModal == wxID_CANCEL;
my $dir = $dialog->GetPath ;
$dir =~ s/[\\\/]+/\//gs ; # this is weird, but whatever
push(@INC , $dir) ;
Wx::MessageBox("Path Added:\n$dir", "\@INC -> New PATH", wxOK | wxI
+CON_INFORMATION, $this );
}
MJD says you
can't just make shit up and expect the computer to know what you mean, retardo!
I run a Win32 PPM
repository for perl 5.6x+5.8x. I take requests.
** The Third rule of perl club is a statement of fact: pod is sexy.
|