From 3bb132fd07d7309e1e562f6a79bd288e9b7eab46 Mon Sep 17 00:00:00 2001
From: Lukas Mai <lukasmai.403@gmail.com>
Date: Sat, 15 Mar 2025 12:42:55 +0100
Subject: [PATCH] Benchmark: don't import Time::HiRes::time; we don't use it

Also:

- use block eval, not string eval
- BEGIN, not sub BEGIN
---
 lib/Benchmark.pm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/lib/Benchmark.pm b/lib/Benchmark.pm
index eb8d2b4c301e..e63d3b88844e 100644
--- a/lib/Benchmark.pm
+++ b/lib/Benchmark.pm
@@ -482,7 +482,7 @@ our(@ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, $VERSION);
 	      clearcache clearallcache disablecache enablecache);
 %EXPORT_TAGS=( all => [ @EXPORT, @EXPORT_OK ] ) ;
 
-$VERSION = 1.26;
+$VERSION = 1.27;
 
 # --- ':hireswallclock' special handling
 
@@ -492,9 +492,8 @@ sub mytime () { time }
 
 init();
 
-sub BEGIN {
-    if (eval 'require Time::HiRes') {
-	Time::HiRes->import('time');
+BEGIN {
+    if (eval { require Time::HiRes }) {
 	$hirestime = \&Time::HiRes::time;
     }
 }