X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FTest-Leaner.git;a=blobdiff_plain;f=lib%2FTest%2FLeaner.pm;h=5e2f0a5f227e488256aa9677155c20763fe12a78;hp=c4c577d2dde61f0eeece12b0f6ccdf9c6ff1a721;hb=c966261ac55fcb079dfc1bf42b1152b4bb71bd0b;hpb=eb0bd56068ca67ea93f621ef38f59dec9bdbbcd8

diff --git a/lib/Test/Leaner.pm b/lib/Test/Leaner.pm
index c4c577d..5e2f0a5 100644
--- a/lib/Test/Leaner.pm
+++ b/lib/Test/Leaner.pm
@@ -122,6 +122,7 @@ our @EXPORT = qw<
  ok
  is
  isnt
+ cmp_ok
  like
  unlike
  diag
@@ -330,7 +331,7 @@ sub cmp_ok ($$$;$) {
  croak("Operator $op not supported") unless defined $name;
  @_ = ($x, $y, $desc);
  no strict 'refs';
- goto &{__PACKAGE__."is_$name"};
+ goto &{__PACKAGE__."::is_$name"};
 }
 
 sub _diag_fh {