Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re: Overloading functions Works

by BigJoe (Curate)
on Jun 19, 2002 at 15:51 UTC ( #175738=note: print w/replies, xml ) Need Help??


in reply to Overloading functions

This version works for me. Thanks for all the suggestions.
package MyOverride; use strict; use Apache::AuthenNTLM; use Apache::Constants qw(OK FORBIDDEN REDIRECT); @MyOverride::ISA = qw(Apache::AuthenNTLM); sub handler ($$) { my ($self, $r) = @_; warn ("\n\n\n\n\n\n\nThis override Rules\n\n\n\n\n\n\n\n"); return $self->Apache::AuthenNTLM::handler ($r) if(1); return OK; } 1;


--BigJoe

Learn patience, you must.
Young PerlMonk, craves Not these things.
Use the source Luke.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://175738]
help
Chatterbox?
[r@j]: I am new to perl script, seeking your advice for the following requirement in perl script - Need to retrieve the status of running process with the process name without using ps -ef command.
[marto]: As discussed yesterday SoPW
[Discipulus]: r@i see perlvar in the docs: $$ is the PID of the current running process. I suppose the name will be perl anyway

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (9)
As of 2017-10-24 07:47 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My fridge is mostly full of:

















    Results (286 votes). Check out past polls.

    Notices?