Further simplify XSLoader .bs file handling blead
authorDagfinn Ilmari Mannsåker <ilmari@ilmari.org>
Mon, 23 Oct 2017 17:50:31 +0000 (18:50 +0100)
committerDagfinn Ilmari Mannsåker <ilmari@ilmari.org>
Mon, 23 Oct 2017 17:56:59 +0000 (18:56 +0100)
Because we're not actually doing anything with it, combine the check
with the one for the missing file.

dist/XSLoader/XSLoader_pm.PL

index 41179b2..e095388 100644 (file)
@@ -143,13 +143,8 @@ print OUT <<'EOT';
     my $bs = $file;
     $bs =~ s/(\.\w+)?(;\d*)?$/\.bs/; # look for .bs 'beside' the library
 
-    if (-s $bs) { # only read file if it's not empty
-#       print STDERR "BS: $bs ($^O, $dlsrc)\n" if $dl_debug;
-        # This calls DynaLoader::bootstrap, which loads the .bs file
-       goto \&XSLoader::bootstrap_inherit;
-    }
-
-    goto \&XSLoader::bootstrap_inherit if not -f $file;
+    # This calls DynaLoader::bootstrap, which will load the .bs file if present
+    goto \&XSLoader::bootstrap_inherit if not -f $file or -s $bs;
 
     my $bootname = "boot_$module";
     $bootname =~ s/\W/_/g;