Commit | Line | Data |
---|---|---|
86530b38 AT |
1 | # NOTE: Derived from blib/lib/Inline.pm. |
2 | # Changes made here will be lost when autosplit is run again. | |
3 | # See AutoSplit.pm. | |
4 | package Inline; | |
5 | ||
6 | #line 1005 "blib/lib/Inline.pm (autosplit into blib/lib/auto/Inline/clean_build.al)" | |
7 | #============================================================================== | |
8 | # Clean the build directory from previous builds | |
9 | #============================================================================== | |
10 | sub clean_build { | |
11 | use strict; | |
12 | my ($prefix, $dir); | |
13 | my $o = shift; | |
14 | ||
15 | $prefix = $o->{INLINE}{DIRECTORY}; | |
16 | opendir(BUILD, $prefix) | |
17 | or croak "Can't open build directory: $prefix for cleanup $!\n"; | |
18 | ||
19 | while ($dir = readdir(BUILD)) { | |
20 | my $maybedir = File::Spec->catdir($prefix,$dir); | |
21 | if (($maybedir and -d $maybedir) and ($dir =~ /\w{36,}/)) { | |
22 | $o->rmpath($prefix,$dir); | |
23 | } | |
24 | } | |
25 | ||
26 | close BUILD; | |
27 | } | |
28 | ||
29 | # end of Inline::clean_build | |
30 | 1; |