File: Embperl_BS

package info (click to toggle)
libembperl-perl 2.5.0-10%2Bdeb9u1
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 7,128 kB
  • sloc: ansic: 21,384; perl: 14,496; javascript: 4,280; cpp: 467; xml: 49; makefile: 33; sh: 24
file content (14 lines) | stat: -rw-r--r-- 306 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
@dl_resolve_using = ('') ; # must be an array with one empty entry to get $bscode written out
$bscode = 
q[

if (!$ENV{MOD_PERL})
    {
    my $nafile = $file ;
    $nafile =~ s/(.*)\./$1.NoApache./ ;
    $file = $nafile if (-f $nafile) ;
    #print STDERR "\n*** bs load file = $file ***\n" ;
    }

] ;