Preferred bug tracker

Please visit the preferred bug tracker to report your issue.

This queue is for tickets about the Perl-Dist-Strawberry CPAN distribution.

Report information
The Basics
Id:
96800
Status:
resolved
Priority:
Low/Low

People
Owner:
Nobody in particular
Requestors:
atmp_tmp [...] yahoo.com
Cc:
AdminCc:

BugTracker
Severity:
(no value)
Broken in:
(no value)
Fixed in:
(no value)



Subject: possible simple bug...
Date: Sat, 28 Jun 2014 19:23:01 -0700
To: "bug-Perl-Dist-Strawberry@rt.cpan.org" <bug-Perl-Dist-Strawberry@rt.cpan.org>
From: Doon Wish <atmp_tmp@yahoo.com>

   using windows 7, currently up to date (as of 6-2814)

   Perl-Dist-Strawberry CPAN distribution:

      Strawberry Perl 5.18.2.2 (32bit) 
      for Windows XP or higher, Apr 2014

   the following program runs under both windows cmd window and
      cygwin   1.7.28   downloaded 2-15-14
      from: http://www.cygwin.com/

    program:

   use strict;
   use warnings;
      my $a;
      $a = 0100;

   print "\n\n \$a is: " . "$a" . "\n\n";
   print "\n\n" . '\076' . " = > is: " . "\076" . "\n\n";
   print "\n\n" . '\077' . " = ? is: " . "\077" . "\n\n";
   print "\n\n" . '\0100' . " = @ is: " . "\0100" . "\n\n";
   print "\n\n" . '\0101' . " = A is: " . "\0101" . "\n\n";
   print "\n\n" . '\x3E' . " = > is: " . "\x3E" . "\n\n";
   print "\n\n" . '\x3F' . " = ? is: " . "\x3F" . "\n\n";
   print "\n\n" . '\x40' . " = @ is: " . "\x40" . "\n\n";
   print "\n\n" . '\x41' . " = A is: " . "\x41" . "\n\n"

 the output: (some \n's removed):

$perl a.pl

 $a is: 64

\076 = > is: >

\077 = ? is: ?

\0100 = @ is:0          <---   a problem?   should be "@"

\0101 = A is:1           <---   a problem?   should be "A"

\x3E = > is: >

\x3F = ? is: ?

\x40 = @ is: @

\x41 = A is: A


   seems to be in issue with octal notation across a boundary.
   hope this isn't user error.

david johnson
Subject: Re: [rt.cpan.org #96800] possible simple bug...
Date: Sun, 29 Jun 2014 23:18:42 +0200
To: bug-Perl-Dist-Strawberry@rt.cpan.org
From: kmx <kmx@volny.cz>
It is not a bug, check "Octal escapes" part of http://perldoc.perl.org/perlrebackslash.html

For perls 5.14+ use:
   print "\n\n" . '\0100' . " = @ is: " . "\o{100}" . "\n\n";
   print "\n\n" . '\0101' . " = A is: " . "\o{101}" . "\n\n";

--
kmx



This service runs on Request Tracker, is sponsored by The Perl Foundation, and maintained by Best Practical Solutions.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.