commit 8c711ac722100ff2532454a3cbce75729604503c

Author: Alexey Tourbin <at@altlinux.ru>

Date:   Wed Sep 15 15:26:28 2010 +0400

    perlbug.PL: adjust dependencies

diff --git a/utils/perlbug.PL b/utils/perlbug.PL

index 885785a..b2f9ad0 100644

--- a/utils/perlbug.PL

+++ b/utils/perlbug.PL

@@ -67,14 +67,11 @@ use File::Basename 'basename';

 sub paraprint;

 BEGIN {

-    eval { require Mail::Send;};

+    eval "require Mail::Send;";

     $::HaveSend = ($@ eq "");

-    eval { require Mail::Util; } ;

+    eval "require Mail::Util;";

     $::HaveUtil = ($@ eq "");

-    # use secure tempfiles wherever possible

-    eval { require File::Temp; };

-    $::HaveTemp = ($@ eq "");

-    eval { require Module::CoreList; };

+    eval "require Module::CoreList;";

     $::HaveCoreList = ($@ eq "");

 };

@@ -983,18 +980,10 @@ EOF

 }

 sub filename {

-    if ($::HaveTemp) {

-	# Good. Use a secure temp file

-	my ($fh, $filename) = File::Temp::tempfile(UNLINK => 1);

-	close($fh);

-	return $filename;

-    } else {

-	# Bah. Fall back to doing things less securely.

-	my $dir = File::Spec->tmpdir();

-	$filename = "bugrep0$$";

-	$filename++ while -e File::Spec->catfile($dir, $filename);

-	$filename = File::Spec->catfile($dir, $filename);

-    }

+    require File::Temp;

+    my ($fh, $filename) = File::Temp::tempfile(UNLINK => 1);

+    close($fh);

+    return $filename;

 }

 sub paraprint {