Fix dualvar_ok to use the right function (#12)

Co-authored-by: jwrightecs
briandfoy · Mar 9, 2024 · 3c71f76 · 3c71f76
1 parent c2cb738
commit 3c71f76
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/lib/Test/Data/Scalar.pm b/lib/Test/Data/Scalar.pm
@@ -104,10 +104,8 @@ How do I test this?
 
 =cut
 
-
-sub dualvar_ok ($;$)
-	{
-	my $ok   = Scalar::Util::dualvar( $_[0] );
+sub dualvar_ok ($;$) {
+	my $ok   = Scalar::Util::isdual( $_[0] );
 	my $name = $_[1] || 'Scalar is a dualvar';
 
 	$Test->ok( $ok, $name );