From 1043bdfa1ad0da96d6b5c36be296748405711278 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Tue, 6 May 2014 16:26:05 -0600 Subject: [PATCH] t/test.pl: Use existing variable instead of recalculating If the current platform is ascii is available already in a variable. Use that instead of inventing a different paradigm. --- t/test.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/t/test.pl b/t/test.pl index 30db88c..406e2fa 100644 --- a/t/test.pl +++ b/t/test.pl @@ -1660,7 +1660,7 @@ WATCHDOG_VIA_ALARM: sub native_to_latin1($) { my $string = shift; - return $string if ord('^') == 94; # ASCII, Latin1 + return $string if $::IS_ASCII; my $output = ""; for my $i (0 .. length($string) - 1) { $output .= chr(ord_native_to_latin1(ord(substr($string, $i, 1)))); @@ -1675,7 +1675,7 @@ sub native_to_latin1($) { sub latin1_to_native($) { my $string = shift; - return $string if ord('^') == 94; # ASCII, Latin1 + return $string if $::IS_ASCII; my $output = ""; for my $i (0 .. length($string) - 1) { $output .= chr(ord_latin1_to_native(ord(substr($string, $i, 1)))); @@ -1692,7 +1692,7 @@ sub ord_latin1_to_native { # equivalent value. Anything above latin1 is itself. my $ord = shift; - return $ord if ord('^') == 94; # ASCII, Latin1 + return $ord if $::IS_ASCII; return utf8::unicode_to_native($ord); } -- 1.8.3.1