sitecustomize.pl: override system call without LD_LIBRARY_PATH LD_RUN_PATH envs

3ce5421b · Andrey Shevchuk · 74f6a6e0 · 3ce5421b
Commit 3ce5421b authored Apr 29, 2023 by Andrey Shevchuk
Hide whitespace changes
Inline Side-by-side

Showing with 19 additions and 0 deletions

sitecustomize.pl usr/local/share/perl5/sitecustomize.pl +19 -0

No files found.
--- a/usr/local/share/perl5/sitecustomize.pl
+++ b/usr/local/share/perl5/sitecustomize.pl
+BEGIN {
+    my $code;
+    if( defined &CORE::GLOBAL::system ) {
+        my $original = \&CORE::GLOBAL::system;
+        $code = sub {
+            delete @ENV{qw[LD_LIBRARY_PATH LD_RUN_PATH]};
+            return $original->(@_);
+        };
+    } else {
+        $code = sub {
+            delete @ENV{qw[LD_LIBRARY_PATH LD_RUN_PATH]};
+            return CORE::system(@_);
+        };
+    }
+    no warnings 'redefine';
+    *CORE::GLOBAL::system = $code;
+}
 package Thirdlane::Boot::Local;
 {