Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

mod_perl / Apache::Registry accidental closures

by imp (Priest)
on Jul 21, 2006 at 00:45 UTC ( #562746=perltutorial: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    ...
        printf "[%s] badness: %s\n", $$, $foo;
        $foo += $val;
    }
    
  2. or download this
    package Apache::ROOTfoo_2ecom::test_2epl;
    use Apache qw(exit);
    ...
    }
    
    }
    
  3. or download this
    Package: Apache::ROOTfoo_2ecom::test_2epl
    [13520] Before: 5
    [13520] badness: 5
    [13520] After: 10
    
  4. or download this
    Package: Apache::ROOTfoo_2ecom::test_2epl
    [19331] Before: 5
    [19331] badness: 5
    [19331] After: 10
    
  5. or download this
    Package: Apache::ROOTfoo_2ecom::test_2epl
    [19331] Before: 5
    [19331] badness: 10
    [19331] After: 5
    
  6. or download this
    Package: Apache::ROOTfoo_2ecom::test_2epl
    [19331] Before: 5
    [19331] badness: 15
    [19331] After: 5
    
  7. or download this
    use strict;
    use warnings;
    ...
        printf "[%s] badness: %s\n", $$, $$foo;
        $$foo += $val;
    }
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perltutorial [id://562746]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (5)
As of 2014-08-23 05:36 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (172 votes), past polls