Search for the first file and fallback to the first module if there's not

[perl/modules/Test-Valgrind.git] / gen.pl

diff --git a/gen.pl b/gen.pl
index 828a6b9279380589ced71dade59828d527b155de..65726b04656f45027738ed801a9fbed5305fcce5 100755 (executable)
--- a/gen.pl
+++ b/gen.pl
@@ -1,17 +1,15 @@
-#!perl
-
 use strict;
 use warnings;
 
 use Test::More;
-eval <<'EOD';
-use Test::Valgrind
- diag    => 1,
- no_test => 1,
- no_supp => 1,
- callers => 50,
- extra   => [ qw/--show-reachable=yes --gen-suppressions=all/ ]
-EOD
+eval {
+ use Test::Valgrind
+  diag    => 1,
+  no_test => 1,
+  no_supp => 1,
+  callers => 50,
+  extra   => [ qw/--show-reachable=yes --gen-suppressions=all/ ];
+};
 if ($@) {
  plan skip_all => 'Test::Valgrind is required to run test your distribution with valgrind';
 } else {
@@ -25,4 +23,3 @@ if ($@) {
 }
 
 1;
-