From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

DMOW / Eludia-09.12.24.a3c31eb / Eludia-09.12.24.a3c31eb / Eludia / Content / Memory.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54

              
################################################################################
BEGIN {
        require Eludia::Content::Memory::Dummy;
        if ($^O eq 'MSWin32') {
         
                if (!$ENV {MOD_PERL}) {
                        eval "require Eludia::Content::Memory::MSWin32OLE";
                }       
        }
        else {
                eval "require Proc::ProcessTable";
                if ($INC {'Proc/ProcessTable.pm'}) {
                        eval "require Eludia::Content::Memory::ProcessTable";
                }
                else {
                        eval "require Eludia::Content::Memory::PS";
                }
        }
         
        if ($preconf -> {_} -> {memory} -> {first} = memory_usage ()) {
         
                if (exists $preconf -> {core_memory_limit} && $preconf -> {_} -> {memory} -> {first} > $preconf -> {core_memory_limit} << 20) {
                 
                        print STDERR sprintf ("\n\n* * * PANIC! Memory limit of %s MiB exceeded: have %s MiB. Loading failed.\n", $preconf -> {core_memory_limit}, $preconf -> {_} -> {memory} -> {first} >> 20);
                         
                        exit;
                 
                }
         
                print STDERR ' (' . format_picture ($preconf -> {_} -> {memory} -> {first} >> 20, "### ### ### ### MiB), ok.\n");                
         
        }
        else {
         
                print STDERR "no memory measurement, ok. \n";
         
        }
}
1;