| Subject: | [PATCH] Don't use defined(@array) |
Howdy!
defined(@array) is deprecated in perl 5.20, and will be an exception in 5.22. The attached patch makes the module just check the the array in boolean context, which appears to be what the code was intending to do in the first place.
| Subject: | 0001-Don-t-use-defined-array.patch |
From 3c81ee06e91d2a4efc52b7b4a9eff7411039c283 Mon Sep 17 00:00:00 2001
From: Brian Fraser <fraserbn@gmail.com>
Date: Wed, 20 Aug 2014 00:33:46 +0200
Subject: [PATCH] Don't use defined(@array)
---
lib/Devel/SmallProf.pm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lib/Devel/SmallProf.pm b/lib/Devel/SmallProf.pm
index cee1211..2b5d091 100644
--- a/lib/Devel/SmallProf.pm
+++ b/lib/Devel/SmallProf.pm
@@ -32,7 +32,7 @@ sub DB {
# evals which do not define subroutines will disappear.
no strict 'refs';
$listings{$filename} = \@{"main::_<$filename"}
- if defined(@{"main::_<$filename"});
+ if @{"main::_<$filename"};
use strict 'refs';
my($delta);
--
1.7.12.4 (Apple Git-37)