[Perl] Silence warnings of Module::ScanDeps for dynamic loaded modules.

Fixes github issue #41 by @bxkx @r-lindner.
liske · Nov 3, 2016 · 493c2fc · 493c2fc
1 parent b4df1f9
commit 493c2fc
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 4 deletions.
diff --git a/ChangeLog b/ChangeLog
@@ -8,6 +8,8 @@ needrestart (2.10) unstable; urgency=medium
  (github issue #46 by @jleroy @eigengrau)
  * Fixes:
  - [Core] Do not ignore processes if maps file could not be read.
+ - [Perl] Silence warnings of Module::ScanDeps for dynamic loaded modules.
+ (github issue #41 by @bxkx @r-lindner)
 
  -- Thomas Liske <thomas@fiasko-nw.net> 
 

diff --git a/perl/lib/NeedRestart/Interp/Perl.pm b/perl/lib/NeedRestart/Interp/Perl.pm
@@ -155,10 +155,16 @@ sub files {
  }
 
  @Module::ScanDeps::IncludeLibs = (exists($opts{I}) ? ($opts{I}) : ());
- my $href = scan_deps(
- files => [$src],
- recurse => 1,
- );
+ my $href;
+ {
+ # Silence warnings of Module::ScanDeps for dynamic loaded modules (github issue #41)
+ local $SIG{__WARN__} = sub { };
+
+ $href = scan_deps(
+ files => [$src],
+ recurse => 1,
+ );
+ }
 
  my %ret = map {
  my $stat = nr_stat($href->{$_}->{file});