develooper Front page | perl.perl5.porters | Postings from October 2000

[PATCH: perl@7181] was: Re: off to a bad start on fixing regressiontests

From:
Peter Prymmer
Date:
October 10, 2000 10:24
Subject:
[PATCH: perl@7181] was: Re: off to a bad start on fixing regressiontests
Message ID:
Pine.OSF.4.10.10010101020180.441897-100000@aspara.forte.com


On Tue, 10 Oct 2000, Philip Newton wrote:

> On 9 Oct 2000, at 17:34, Peter Prymmer wrote:
> 
> Both of those code examples, as well as your preliminary text, appear 
> to have the literal string "forward slash, underscore".
> 
> >  $ perl5.005_03 -e ' print "\xE0_" ' | od -c
> >  0000000000     \   _
> >  0000000002
> 
> This appears to print out "backslash, underscore".
> 
> I do not find it surprising that "\N{SOLIDUS}" ne "\N{REVERSE 
> SOLIDUS}".
> 
> > I am mystified.
> 
> Do these two characters:   /  \    look similar in the font you are using? 
> The first is a forward slash, the second a backslash.

Oops.  Thanks Philip.  I guess I grew too bleary eyed and caffeine
deprived yesterday.  No those characters do look distinct even in
this font.  Please consider the following for inclusion in bleadperl:



--- t/op/oct.t.orig	Mon Oct  9 16:36:49 2000
+++ t/op/oct.t	Tue Oct 10 09:47:34 2000
@@ -57,11 +57,23 @@
 print $_ eq "\0"."_"."7"."_"."7"       ? "ok" : "not ok", " 38\n";
 chop, chop, chop, chop;
 print $_ eq "\0"                       ? "ok" : "not ok", " 39\n";
-print "\077_" eq "?_"                  ? "ok" : "not ok", " 40\n";
+if (ord("\t") != 9) {
+    # question mark is 111 in 1047, 037, && POSIX-BC
+    print "\157_" eq "?_"                  ? "ok" : "not ok", " 40\n";
+}
+else {
+    print "\077_" eq "?_"                  ? "ok" : "not ok", " 40\n";
+}
 
 $_ = "\x_7_7";
 print length eq 5                      ? "ok" : "not ok", " 41\n";
 print $_ eq "\0"."_"."7"."_"."7"       ? "ok" : "not ok", " 42\n";
 chop, chop, chop, chop;
 print $_ eq "\0"                       ? "ok" : "not ok", " 43\n";
-print "\x2F_" eq "/_"                  ? "ok" : "not ok", " 44\n";
+if (ord("\t") != 9) {
+    # / is 97 in 1047, 037, && POSIX-BC
+    print "\x61_" eq "/_"                  ? "ok" : "not ok", " 44\n";
+}
+else {
+    print "\x2F_" eq "/_"                  ? "ok" : "not ok", " 44\n";
+}
End of Patch.

Peter Prymmer





nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About