Permalink
Browse files

Tweaks for check_file()

  • Loading branch information...
1 parent 53a9329 commit 7280475d78d874993f8af93f1f71e8263d0a14db @gfx gfx committed Sep 14, 2010
Showing with 2 additions and 2 deletions.
  1. +2 −2 lib/Devel/Cover.pm
View
@@ -513,10 +513,10 @@ sub check_file
{
my ($cv) = @_;
- return unless class($cv) eq "CV";
+ return unless ref($cv) eq "B::CV";
my $op = $cv->START;
- return unless $op->can("file") && class($op) ne "NULL" && is_state($op);
+ return unless ref($op) eq "B::COP";
my $file = $op->file;
my $use = use_file($file);

0 comments on commit 7280475

Please sign in to comment.