~ubuntu-branches/ubuntu/edgy/libapache2-mod-perl2/edgy

« back to all changes in this revision

Viewing changes to ModPerl-Registry/t/conf/modperl_extra_startup.pl

• browse files at revision 4
• compare with another revision
• download diff
• download tarball
• view history from revision 4

Show diffs side-by-side

added

removed

ModPerl-Registry/t/conf/modperl_extra_startup.pl

2

2

use warnings FATAL => 'all';

3

3

 

4

4

use ModPerl::RegistryLoader ();

5

 

use Apache::Server ();

6

 

use Apache::ServerUtil ();

7

 

use Apache::Process ();

 

5

 

 

6

use Apache2::ServerRec ();

 

7

use Apache2::ServerUtil ();

 

8

use Apache2::Process ();

8

9

 

9

10

use DirHandle ();

10

11

 

11

 

my $pool = Apache->server->process->pool;

12

 

my $base_dir = Apache::Server::server_root_relative($pool, "cgi-bin");

 

12

my $proc = Apache2::ServerUtil->server->process;

 

13

my $pool = $proc->pool;

 

14

 

 

15

# can't use catfile with server_root as it contains unix dir

 

16

# separators and in a few of our particular tests we compare against

 

17

# win32 separators. in general avoid using server_root_relative in your

 

18

# code, see the manpage for more details

 

19

my $base_dir = Apache2::ServerUtil::server_root_relative($pool, "cgi-bin");

13

20

 

14

21

# test the scripts pre-loading by explicitly specifying uri => filename

15

22

my $rl = ModPerl::RegistryLoader->new(package => "ModPerl::Registry");

26

33

    sub trans {

27

34

        my $uri = shift; 

28

35

        $uri =~ s|^/registry_bb/|cgi-bin/|;

29

 

        return Apache::Server::server_root_relative($pool, $uri);

 

36

        return Apache2::ServerUtil::server_root_relative($pool, $uri);

30

37

    }

31

38

 

32

39

    my $rl = ModPerl::RegistryLoader->new(

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1