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)