--- GraphViz-2.19/lib/Devel/GraphVizProf.pm	2015-11-12 23:46:24.000000000 +0200
+++ GraphViz-2.19/lib/Devel/GraphVizProf.pm	2015-12-08 18:24:37.999796933 +0200
@@ -56,7 +56,7 @@
   # evals which do not define subroutines will disappear.
   no strict 'refs';
   $DB::listings{$filename} = \@{"main::_<$filename"} if 
-    defined(@{"main::_<$filename"});
+    *{"main::_<$filename"}{ARRAY};
   use strict 'refs';
 
 #  warn $DB::prevl . " -> " . $line . "\n";
@@ -197,7 +197,7 @@
   if (defined($DB::sub{$DB::sub})) {
     my($m,$s) = ($DB::sub{$DB::sub} =~ /.+(?=:)|[^:-]+/g);
     $DB::profiles{$m}->[$s]++;
-    $DB::listings{$m} = \@{"main::_<$m"} if defined(@{"main::_<$m"});
+    $DB::listings{$m} = \@{"main::_<$m"} if *{"main::_<$m"}{ARRAY};
   }
   goto &$DB::sub;
 }