File: B_laced_INC_dump.pl

package info (click to toggle)
libtest-diaginc-perl 0.010-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 220 kB
  • sloc: perl: 269; makefile: 2
file content (13 lines) | stat: -rw-r--r-- 249 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
my %inc_copy = %INC;
delete $inc_copy{ +__FILE__ };

if ( keys %inc_copy ) {
    print STDERR "%INC can not be populated when loading @{[ __FILE__ ]}\n";
    exit 255;
}

require B;

print join "\0", sort grep { $_ ne __FILE__ } keys %INC;

exit 0;