File tree Expand file tree Collapse file tree 1 file changed +10
-3
lines changed Expand file tree Collapse file tree 1 file changed +10
-3
lines changed Original file line number Diff line number Diff line change 1
1
# !/usr/bin/perl
2
2
# # --------------------------------------------------------------------------
3
3
# #
4
- # # Copyright 1996-2020 The NASM Authors - All Rights Reserved
4
+ # # Copyright 1996-2024 The NASM Authors - All Rights Reserved
5
5
# # See the file AUTHORS included with the NASM distribution for
6
6
# # the specific copyright holders.
7
7
# #
@@ -127,6 +127,11 @@ ($$)
127
127
sub convert_file ($$) {
128
128
my ($file ,$sep ) = @_ ;
129
129
130
+ if ($file eq ' ' || $file eq File::Spec-> curdir() ||
131
+ $file eq File::Spec-> rootdir()) {
132
+ return undef ;
133
+ }
134
+
130
135
my @fspec = (basename($file ));
131
136
while ( ($file = dirname($file )) ne File::Spec-> curdir() &&
132
137
$file ne File::Spec-> rootdir() ) {
208
213
close ($in );
209
214
210
215
$is_external = $is_external && defined ($external );
211
- undef $external if ( !$is_external );
216
+ if ( !$is_external ) {
217
+ undef $external ;
218
+ $selfrule = 0;
219
+ }
212
220
213
221
my $out ;
214
222
my $outpath ;
228
236
}
229
237
unlink ($external );
230
238
} else {
231
-
232
239
my $e ;
233
240
234
241
foreach my $dfile ($external , sort (keys (%deps )) ) {
You can’t perform that action at this time.
0 commit comments