[Touch-packages] [Bug 1474366] Re: a2p has buggy output

2015-07-16 Thread psl
** Attachment added: demo_a2p_x32.pl
   
https://bugs.launchpad.net/ubuntu/+source/perl/+bug/1474366/+attachment/4429932/+files/demo_a2p_x32.pl

-- 
You received this bug notification because you are a member of Ubuntu
Touch seeded packages, which is subscribed to perl in Ubuntu.
https://bugs.launchpad.net/bugs/1474366

Title:
  a2p has buggy output

Status in perl package in Ubuntu:
  New

Bug description:
  Ubuntu 14.04.2 LTS, amd64
  Package perl 5.18.2-2ubuntu1 amd64

  I tried to use a2p translator to convert simple AWK script to PERL
  script. I see that output is strange, characters are missing or are
  duplicated.

  Example of a2p output, fragment:

  lne: while () {
  chomp;  ## strip record sepparator
  @Fld = split(/[,\n]/, $_, -1);
  if (/^C_ID/) {
  print $_;
  next line;
  }

  Notice, label lne is there, not line, notice comment sepparator.
  This is just an example, a2p creates many similar errors. Other
  example:

  # crreate translation table
  for ($i = 32; $i  28; $i++) {
  rintfprintf('%02x', $i)} = sprintf('%c', $i);
  }
  is is heads header, print it

  lie: while () {
  chomp;  # stip record separator
  @Fld =  split(/[,\n]/, $_, -1);
  if (/^C_ID/) {
  print $_;
  next line;
  }

  if 0-9]0-9]/) {

  Notice, label lie is there, not line, notice comment crreate,
  notice that condition in for loop is $i28 but should be $i128,
  notice AWK line

  XT[sprintf(%02x, i)]=sprintf(%c, i);

  was translated to

  rintfprintf('%02x', $i)} = sprintf('%c', $i);

  and notice the last line with if.

  My LOCALE:

  $ locale
  LANG=en_US.UTF-8
  LANGUAGE=
  LC_CTYPE=en_US.UTF-8
  LC_NUMERIC=en_US.UTF-8
  LC_TIME=en_US.UTF-8
  LC_COLLATE=en_US.UTF-8
  LC_MONETARY=en_US.UTF-8
  LC_MESSAGES=en_US.UTF-8
  LC_PAPER=en_US.UTF-8
  LC_NAME=en_US.UTF-8
  LC_ADDRESS=en_US.UTF-8
  LC_TELEPHONE=en_US.UTF-8
  LC_MEASUREMENT=en_US.UTF-8
  LC_IDENTIFICATION=en_US.UTF-8
  LC_ALL=

  I will attach two AWK scripts and two PERL scripts created with a2p,
  like this: a2p demo.awk  demo_a2p.pl

To manage notifications about this bug go to:
https://bugs.launchpad.net/ubuntu/+source/perl/+bug/1474366/+subscriptions

-- 
Mailing list: https://launchpad.net/~touch-packages
Post to : touch-packages@lists.launchpad.net
Unsubscribe : https://launchpad.net/~touch-packages
More help   : https://help.launchpad.net/ListHelp


[Touch-packages] [Bug 1474366] Re: a2p has buggy output

2015-07-16 Thread psl
Ubuntu 14.04.2, i386
perl 5.18.2-2ubuntu1 i386

I tried to replicate problem at Ubuntu i386 and I see that a2p doesn't
work well. It creates different output but still with a lot of similar
problems.

Example:

#  ths is headder, print it

line: whle () {
   chomp;   # strip record separator
@Fld = spliit(/[,\n]/, $_, -1)
if (/^C_ID/) {
print $_;

next line;
}

if (/^]0-9]/) {
$C_ID =Fld[([(1)-1];


 I attach files demo_a2p_i386.pl and demo1_a2p_i386.pl

-- 
You received this bug notification because you are a member of Ubuntu
Touch seeded packages, which is subscribed to perl in Ubuntu.
https://bugs.launchpad.net/bugs/1474366

Title:
  a2p has buggy output

Status in perl package in Ubuntu:
  New

Bug description:
  Ubuntu 14.04.2 LTS, amd64
  Package perl 5.18.2-2ubuntu1 amd64

  I tried to use a2p translator to convert simple AWK script to PERL
  script. I see that output is strange, characters are missing or are
  duplicated.

  Example of a2p output, fragment:

  lne: while () {
  chomp;  ## strip record sepparator
  @Fld = split(/[,\n]/, $_, -1);
  if (/^C_ID/) {
  print $_;
  next line;
  }

  Notice, label lne is there, not line, notice comment sepparator.
  This is just an example, a2p creates many similar errors. Other
  example:

  # crreate translation table
  for ($i = 32; $i  28; $i++) {
  rintfprintf('%02x', $i)} = sprintf('%c', $i);
  }
  is is heads header, print it

  lie: while () {
  chomp;  # stip record separator
  @Fld =  split(/[,\n]/, $_, -1);
  if (/^C_ID/) {
  print $_;
  next line;
  }

  if 0-9]0-9]/) {

  Notice, label lie is there, not line, notice comment crreate,
  notice that condition in for loop is $i28 but should be $i128,
  notice AWK line

  XT[sprintf(%02x, i)]=sprintf(%c, i);

  was translated to

  rintfprintf('%02x', $i)} = sprintf('%c', $i);

  and notice the last line with if.

  My LOCALE:

  $ locale
  LANG=en_US.UTF-8
  LANGUAGE=
  LC_CTYPE=en_US.UTF-8
  LC_NUMERIC=en_US.UTF-8
  LC_TIME=en_US.UTF-8
  LC_COLLATE=en_US.UTF-8
  LC_MONETARY=en_US.UTF-8
  LC_MESSAGES=en_US.UTF-8
  LC_PAPER=en_US.UTF-8
  LC_NAME=en_US.UTF-8
  LC_ADDRESS=en_US.UTF-8
  LC_TELEPHONE=en_US.UTF-8
  LC_MEASUREMENT=en_US.UTF-8
  LC_IDENTIFICATION=en_US.UTF-8
  LC_ALL=

  I will attach two AWK scripts and two PERL scripts created with a2p,
  like this: a2p demo.awk  demo_a2p.pl

To manage notifications about this bug go to:
https://bugs.launchpad.net/ubuntu/+source/perl/+bug/1474366/+subscriptions

-- 
Mailing list: https://launchpad.net/~touch-packages
Post to : touch-packages@lists.launchpad.net
Unsubscribe : https://launchpad.net/~touch-packages
More help   : https://help.launchpad.net/ListHelp


[Touch-packages] [Bug 1474366] Re: a2p has buggy output

2015-07-16 Thread psl
** Attachment added: demo1_a2p_x32.pl
   
https://bugs.launchpad.net/ubuntu/+source/perl/+bug/1474366/+attachment/4429933/+files/demo1_a2p_x32.pl

-- 
You received this bug notification because you are a member of Ubuntu
Touch seeded packages, which is subscribed to perl in Ubuntu.
https://bugs.launchpad.net/bugs/1474366

Title:
  a2p has buggy output

Status in perl package in Ubuntu:
  New

Bug description:
  Ubuntu 14.04.2 LTS, amd64
  Package perl 5.18.2-2ubuntu1 amd64

  I tried to use a2p translator to convert simple AWK script to PERL
  script. I see that output is strange, characters are missing or are
  duplicated.

  Example of a2p output, fragment:

  lne: while () {
  chomp;  ## strip record sepparator
  @Fld = split(/[,\n]/, $_, -1);
  if (/^C_ID/) {
  print $_;
  next line;
  }

  Notice, label lne is there, not line, notice comment sepparator.
  This is just an example, a2p creates many similar errors. Other
  example:

  # crreate translation table
  for ($i = 32; $i  28; $i++) {
  rintfprintf('%02x', $i)} = sprintf('%c', $i);
  }
  is is heads header, print it

  lie: while () {
  chomp;  # stip record separator
  @Fld =  split(/[,\n]/, $_, -1);
  if (/^C_ID/) {
  print $_;
  next line;
  }

  if 0-9]0-9]/) {

  Notice, label lie is there, not line, notice comment crreate,
  notice that condition in for loop is $i28 but should be $i128,
  notice AWK line

  XT[sprintf(%02x, i)]=sprintf(%c, i);

  was translated to

  rintfprintf('%02x', $i)} = sprintf('%c', $i);

  and notice the last line with if.

  My LOCALE:

  $ locale
  LANG=en_US.UTF-8
  LANGUAGE=
  LC_CTYPE=en_US.UTF-8
  LC_NUMERIC=en_US.UTF-8
  LC_TIME=en_US.UTF-8
  LC_COLLATE=en_US.UTF-8
  LC_MONETARY=en_US.UTF-8
  LC_MESSAGES=en_US.UTF-8
  LC_PAPER=en_US.UTF-8
  LC_NAME=en_US.UTF-8
  LC_ADDRESS=en_US.UTF-8
  LC_TELEPHONE=en_US.UTF-8
  LC_MEASUREMENT=en_US.UTF-8
  LC_IDENTIFICATION=en_US.UTF-8
  LC_ALL=

  I will attach two AWK scripts and two PERL scripts created with a2p,
  like this: a2p demo.awk  demo_a2p.pl

To manage notifications about this bug go to:
https://bugs.launchpad.net/ubuntu/+source/perl/+bug/1474366/+subscriptions

-- 
Mailing list: https://launchpad.net/~touch-packages
Post to : touch-packages@lists.launchpad.net
Unsubscribe : https://launchpad.net/~touch-packages
More help   : https://help.launchpad.net/ListHelp


[Touch-packages] [Bug 1474366] Re: a2p has buggy output

2015-07-16 Thread psl
Debian GNU/Linux 7, amd64
5.14.2-21+deb7u2 amd64

Another test, output of a2p is buggy. That is strange because Debian has the 
same version of perl as Raspberry PI!
I attach  demo_a2p_amd64_deb.pl and demo1_a2p_amd64_deb.pl

Example:

# this is header, print it

lie: while () {
chomp;  # strip record separator
@Fld = split(/[,\n]/, $_, -1);
if (/^C_ID/) {
print $_;
next line;
}

if 0-9]0-9]/) {
$CD = $Fld[([(1)-1];

-- 
You received this bug notification because you are a member of Ubuntu
Touch seeded packages, which is subscribed to perl in Ubuntu.
https://bugs.launchpad.net/bugs/1474366

Title:
  a2p has buggy output

Status in perl package in Ubuntu:
  New

Bug description:
  Ubuntu 14.04.2 LTS, amd64
  Package perl 5.18.2-2ubuntu1 amd64

  I tried to use a2p translator to convert simple AWK script to PERL
  script. I see that output is strange, characters are missing or are
  duplicated.

  Example of a2p output, fragment:

  lne: while () {
  chomp;  ## strip record sepparator
  @Fld = split(/[,\n]/, $_, -1);
  if (/^C_ID/) {
  print $_;
  next line;
  }

  Notice, label lne is there, not line, notice comment sepparator.
  This is just an example, a2p creates many similar errors. Other
  example:

  # crreate translation table
  for ($i = 32; $i  28; $i++) {
  rintfprintf('%02x', $i)} = sprintf('%c', $i);
  }
  is is heads header, print it

  lie: while () {
  chomp;  # stip record separator
  @Fld =  split(/[,\n]/, $_, -1);
  if (/^C_ID/) {
  print $_;
  next line;
  }

  if 0-9]0-9]/) {

  Notice, label lie is there, not line, notice comment crreate,
  notice that condition in for loop is $i28 but should be $i128,
  notice AWK line

  XT[sprintf(%02x, i)]=sprintf(%c, i);

  was translated to

  rintfprintf('%02x', $i)} = sprintf('%c', $i);

  and notice the last line with if.

  My LOCALE:

  $ locale
  LANG=en_US.UTF-8
  LANGUAGE=
  LC_CTYPE=en_US.UTF-8
  LC_NUMERIC=en_US.UTF-8
  LC_TIME=en_US.UTF-8
  LC_COLLATE=en_US.UTF-8
  LC_MONETARY=en_US.UTF-8
  LC_MESSAGES=en_US.UTF-8
  LC_PAPER=en_US.UTF-8
  LC_NAME=en_US.UTF-8
  LC_ADDRESS=en_US.UTF-8
  LC_TELEPHONE=en_US.UTF-8
  LC_MEASUREMENT=en_US.UTF-8
  LC_IDENTIFICATION=en_US.UTF-8
  LC_ALL=

  I will attach two AWK scripts and two PERL scripts created with a2p,
  like this: a2p demo.awk  demo_a2p_amd64.pl; a2p demo1.awk 
  demo1_a2p_amd64.pl

To manage notifications about this bug go to:
https://bugs.launchpad.net/ubuntu/+source/perl/+bug/1474366/+subscriptions

-- 
Mailing list: https://launchpad.net/~touch-packages
Post to : touch-packages@lists.launchpad.net
Unsubscribe : https://launchpad.net/~touch-packages
More help   : https://help.launchpad.net/ListHelp


[Touch-packages] [Bug 1474366] Re: a2p has buggy output

2015-07-16 Thread psl
** Attachment added: demo_a2p_amd64_deb.pl
   
https://bugs.launchpad.net/ubuntu/+source/perl/+bug/1474366/+attachment/4429963/+files/demo_a2p_amd64_deb.pl

-- 
You received this bug notification because you are a member of Ubuntu
Touch seeded packages, which is subscribed to perl in Ubuntu.
https://bugs.launchpad.net/bugs/1474366

Title:
  a2p has buggy output

Status in perl package in Ubuntu:
  New

Bug description:
  Ubuntu 14.04.2 LTS, amd64
  Package perl 5.18.2-2ubuntu1 amd64

  I tried to use a2p translator to convert simple AWK script to PERL
  script. I see that output is strange, characters are missing or are
  duplicated.

  Example of a2p output, fragment:

  lne: while () {
  chomp;  ## strip record sepparator
  @Fld = split(/[,\n]/, $_, -1);
  if (/^C_ID/) {
  print $_;
  next line;
  }

  Notice, label lne is there, not line, notice comment sepparator.
  This is just an example, a2p creates many similar errors. Other
  example:

  # crreate translation table
  for ($i = 32; $i  28; $i++) {
  rintfprintf('%02x', $i)} = sprintf('%c', $i);
  }
  is is heads header, print it

  lie: while () {
  chomp;  # stip record separator
  @Fld =  split(/[,\n]/, $_, -1);
  if (/^C_ID/) {
  print $_;
  next line;
  }

  if 0-9]0-9]/) {

  Notice, label lie is there, not line, notice comment crreate,
  notice that condition in for loop is $i28 but should be $i128,
  notice AWK line

  XT[sprintf(%02x, i)]=sprintf(%c, i);

  was translated to

  rintfprintf('%02x', $i)} = sprintf('%c', $i);

  and notice the last line with if.

  My LOCALE:

  $ locale
  LANG=en_US.UTF-8
  LANGUAGE=
  LC_CTYPE=en_US.UTF-8
  LC_NUMERIC=en_US.UTF-8
  LC_TIME=en_US.UTF-8
  LC_COLLATE=en_US.UTF-8
  LC_MONETARY=en_US.UTF-8
  LC_MESSAGES=en_US.UTF-8
  LC_PAPER=en_US.UTF-8
  LC_NAME=en_US.UTF-8
  LC_ADDRESS=en_US.UTF-8
  LC_TELEPHONE=en_US.UTF-8
  LC_MEASUREMENT=en_US.UTF-8
  LC_IDENTIFICATION=en_US.UTF-8
  LC_ALL=

  I will attach two AWK scripts and two PERL scripts created with a2p,
  like this: a2p demo.awk  demo_a2p_amd64.pl; a2p demo1.awk 
  demo1_a2p_amd64.pl

To manage notifications about this bug go to:
https://bugs.launchpad.net/ubuntu/+source/perl/+bug/1474366/+subscriptions

-- 
Mailing list: https://launchpad.net/~touch-packages
Post to : touch-packages@lists.launchpad.net
Unsubscribe : https://launchpad.net/~touch-packages
More help   : https://help.launchpad.net/ListHelp


[Touch-packages] [Bug 1474366] Re: a2p has buggy output

2015-07-16 Thread psl
** Attachment added: demo1_a2p_amd64_deb.pl
   
https://bugs.launchpad.net/ubuntu/+source/perl/+bug/1474366/+attachment/4429964/+files/demo1_a2p_amd64_deb.pl

-- 
You received this bug notification because you are a member of Ubuntu
Touch seeded packages, which is subscribed to perl in Ubuntu.
https://bugs.launchpad.net/bugs/1474366

Title:
  a2p has buggy output

Status in perl package in Ubuntu:
  New

Bug description:
  Ubuntu 14.04.2 LTS, amd64
  Package perl 5.18.2-2ubuntu1 amd64

  I tried to use a2p translator to convert simple AWK script to PERL
  script. I see that output is strange, characters are missing or are
  duplicated.

  Example of a2p output, fragment:

  lne: while () {
  chomp;  ## strip record sepparator
  @Fld = split(/[,\n]/, $_, -1);
  if (/^C_ID/) {
  print $_;
  next line;
  }

  Notice, label lne is there, not line, notice comment sepparator.
  This is just an example, a2p creates many similar errors. Other
  example:

  # crreate translation table
  for ($i = 32; $i  28; $i++) {
  rintfprintf('%02x', $i)} = sprintf('%c', $i);
  }
  is is heads header, print it

  lie: while () {
  chomp;  # stip record separator
  @Fld =  split(/[,\n]/, $_, -1);
  if (/^C_ID/) {
  print $_;
  next line;
  }

  if 0-9]0-9]/) {

  Notice, label lie is there, not line, notice comment crreate,
  notice that condition in for loop is $i28 but should be $i128,
  notice AWK line

  XT[sprintf(%02x, i)]=sprintf(%c, i);

  was translated to

  rintfprintf('%02x', $i)} = sprintf('%c', $i);

  and notice the last line with if.

  My LOCALE:

  $ locale
  LANG=en_US.UTF-8
  LANGUAGE=
  LC_CTYPE=en_US.UTF-8
  LC_NUMERIC=en_US.UTF-8
  LC_TIME=en_US.UTF-8
  LC_COLLATE=en_US.UTF-8
  LC_MONETARY=en_US.UTF-8
  LC_MESSAGES=en_US.UTF-8
  LC_PAPER=en_US.UTF-8
  LC_NAME=en_US.UTF-8
  LC_ADDRESS=en_US.UTF-8
  LC_TELEPHONE=en_US.UTF-8
  LC_MEASUREMENT=en_US.UTF-8
  LC_IDENTIFICATION=en_US.UTF-8
  LC_ALL=

  I will attach two AWK scripts and two PERL scripts created with a2p,
  like this: a2p demo.awk  demo_a2p_amd64.pl; a2p demo1.awk 
  demo1_a2p_amd64.pl

To manage notifications about this bug go to:
https://bugs.launchpad.net/ubuntu/+source/perl/+bug/1474366/+subscriptions

-- 
Mailing list: https://launchpad.net/~touch-packages
Post to : touch-packages@lists.launchpad.net
Unsubscribe : https://launchpad.net/~touch-packages
More help   : https://help.launchpad.net/ListHelp


[Touch-packages] [Bug 1474366] Re: a2p has buggy output

2015-07-16 Thread psl
** Attachment added: demo_a2p_armhf.pl
   
https://bugs.launchpad.net/ubuntu/+source/perl/+bug/1474366/+attachment/4429956/+files/demo_a2p_armhf.pl

-- 
You received this bug notification because you are a member of Ubuntu
Touch seeded packages, which is subscribed to perl in Ubuntu.
https://bugs.launchpad.net/bugs/1474366

Title:
  a2p has buggy output

Status in perl package in Ubuntu:
  New

Bug description:
  Ubuntu 14.04.2 LTS, amd64
  Package perl 5.18.2-2ubuntu1 amd64

  I tried to use a2p translator to convert simple AWK script to PERL
  script. I see that output is strange, characters are missing or are
  duplicated.

  Example of a2p output, fragment:

  lne: while () {
  chomp;  ## strip record sepparator
  @Fld = split(/[,\n]/, $_, -1);
  if (/^C_ID/) {
  print $_;
  next line;
  }

  Notice, label lne is there, not line, notice comment sepparator.
  This is just an example, a2p creates many similar errors. Other
  example:

  # crreate translation table
  for ($i = 32; $i  28; $i++) {
  rintfprintf('%02x', $i)} = sprintf('%c', $i);
  }
  is is heads header, print it

  lie: while () {
  chomp;  # stip record separator
  @Fld =  split(/[,\n]/, $_, -1);
  if (/^C_ID/) {
  print $_;
  next line;
  }

  if 0-9]0-9]/) {

  Notice, label lie is there, not line, notice comment crreate,
  notice that condition in for loop is $i28 but should be $i128,
  notice AWK line

  XT[sprintf(%02x, i)]=sprintf(%c, i);

  was translated to

  rintfprintf('%02x', $i)} = sprintf('%c', $i);

  and notice the last line with if.

  My LOCALE:

  $ locale
  LANG=en_US.UTF-8
  LANGUAGE=
  LC_CTYPE=en_US.UTF-8
  LC_NUMERIC=en_US.UTF-8
  LC_TIME=en_US.UTF-8
  LC_COLLATE=en_US.UTF-8
  LC_MONETARY=en_US.UTF-8
  LC_MESSAGES=en_US.UTF-8
  LC_PAPER=en_US.UTF-8
  LC_NAME=en_US.UTF-8
  LC_ADDRESS=en_US.UTF-8
  LC_TELEPHONE=en_US.UTF-8
  LC_MEASUREMENT=en_US.UTF-8
  LC_IDENTIFICATION=en_US.UTF-8
  LC_ALL=

  I will attach two AWK scripts and two PERL scripts created with a2p,
  like this: a2p demo.awk  demo_a2p_amd64.pl; a2p demo1.awk 
  demo1_a2p_amd64.pl

To manage notifications about this bug go to:
https://bugs.launchpad.net/ubuntu/+source/perl/+bug/1474366/+subscriptions

-- 
Mailing list: https://launchpad.net/~touch-packages
Post to : touch-packages@lists.launchpad.net
Unsubscribe : https://launchpad.net/~touch-packages
More help   : https://help.launchpad.net/ListHelp


[Touch-packages] [Bug 1474366] Re: a2p has buggy output

2015-07-16 Thread psl
** Summary changed:

- a2p at amd64 has buggy output
+ a2p has buggy output

** Description changed:

  Ubuntu 14.04.2 LTS, amd64
  Package perl 5.18.2-2ubuntu1 amd64
  
  I tried to use a2p translator to convert simple AWK script to PERL
  script. I see that output is strange, characters are missing or are
- duplicated, I guess it could be related to 64-bit architecture.
+ duplicated.
  
  Example of a2p output, fragment:
  
  lne: while () {
  chomp;  ## strip record sepparator
  @Fld = split(/[,\n]/, $_, -1);
  if (/^C_ID/) {
  print $_;
  next line;
  }
  
  Notice, label lne is there, not line, notice comment sepparator. This
  is just an example, a2p creates many similar errors. Other example:
  
  # crreate translation table
  for ($i = 32; $i  28; $i++) {
  rintfprintf('%02x', $i)} = sprintf('%c', $i);
  }
  is is heads header, print it
  
  lie: while () {
  chomp;  # stip record separator
  @Fld =  split(/[,\n]/, $_, -1);
  if (/^C_ID/) {
  print $_;
  next line;
  }
  
  if 0-9]0-9]/) {
  
  Notice, label lie is there, not line, notice comment crreate,
  notice that condition in for loop is $i28 but should be $i128, notice
  AWK line
  
  XT[sprintf(%02x, i)]=sprintf(%c, i);
  
  was translated to
  
  rintfprintf('%02x', $i)} = sprintf('%c', $i);
  
  and notice the last line with if.
  
- 
  My LOCALE:
  
  $ locale
  LANG=en_US.UTF-8
  LANGUAGE=
  LC_CTYPE=en_US.UTF-8
  LC_NUMERIC=en_US.UTF-8
  LC_TIME=en_US.UTF-8
  LC_COLLATE=en_US.UTF-8
  LC_MONETARY=en_US.UTF-8
  LC_MESSAGES=en_US.UTF-8
  LC_PAPER=en_US.UTF-8
  LC_NAME=en_US.UTF-8
  LC_ADDRESS=en_US.UTF-8
  LC_TELEPHONE=en_US.UTF-8
  LC_MEASUREMENT=en_US.UTF-8
  LC_IDENTIFICATION=en_US.UTF-8
  LC_ALL=
  
  I will attach two AWK scripts and two PERL scripts created with a2p,
  like this: a2p demo.awk  demo_a2p.pl

-- 
You received this bug notification because you are a member of Ubuntu
Touch seeded packages, which is subscribed to perl in Ubuntu.
https://bugs.launchpad.net/bugs/1474366

Title:
  a2p has buggy output

Status in perl package in Ubuntu:
  New

Bug description:
  Ubuntu 14.04.2 LTS, amd64
  Package perl 5.18.2-2ubuntu1 amd64

  I tried to use a2p translator to convert simple AWK script to PERL
  script. I see that output is strange, characters are missing or are
  duplicated.

  Example of a2p output, fragment:

  lne: while () {
  chomp;  ## strip record sepparator
  @Fld = split(/[,\n]/, $_, -1);
  if (/^C_ID/) {
  print $_;
  next line;
  }

  Notice, label lne is there, not line, notice comment sepparator.
  This is just an example, a2p creates many similar errors. Other
  example:

  # crreate translation table
  for ($i = 32; $i  28; $i++) {
  rintfprintf('%02x', $i)} = sprintf('%c', $i);
  }
  is is heads header, print it

  lie: while () {
  chomp;  # stip record separator
  @Fld =  split(/[,\n]/, $_, -1);
  if (/^C_ID/) {
  print $_;
  next line;
  }

  if 0-9]0-9]/) {

  Notice, label lie is there, not line, notice comment crreate,
  notice that condition in for loop is $i28 but should be $i128,
  notice AWK line

  XT[sprintf(%02x, i)]=sprintf(%c, i);

  was translated to

  rintfprintf('%02x', $i)} = sprintf('%c', $i);

  and notice the last line with if.

  My LOCALE:

  $ locale
  LANG=en_US.UTF-8
  LANGUAGE=
  LC_CTYPE=en_US.UTF-8
  LC_NUMERIC=en_US.UTF-8
  LC_TIME=en_US.UTF-8
  LC_COLLATE=en_US.UTF-8
  LC_MONETARY=en_US.UTF-8
  LC_MESSAGES=en_US.UTF-8
  LC_PAPER=en_US.UTF-8
  LC_NAME=en_US.UTF-8
  LC_ADDRESS=en_US.UTF-8
  LC_TELEPHONE=en_US.UTF-8
  LC_MEASUREMENT=en_US.UTF-8
  LC_IDENTIFICATION=en_US.UTF-8
  LC_ALL=

  I will attach two AWK scripts and two PERL scripts created with a2p,
  like this: a2p demo.awk  demo_a2p.pl

To manage notifications about this bug go to:
https://bugs.launchpad.net/ubuntu/+source/perl/+bug/1474366/+subscriptions

-- 
Mailing list: https://launchpad.net/~touch-packages
Post to : touch-packages@lists.launchpad.net
Unsubscribe : https://launchpad.net/~touch-packages
More help   : https://help.launchpad.net/ListHelp


[Touch-packages] [Bug 1474366] Re: a2p has buggy output

2015-07-16 Thread psl
Raspbian GNU/Linux 7 (Raspberry PI)
perl 5.14.2-21+rpi2+deb7u2 armhf

I tried a2p at RPI and output is correct! I attach demo_a2p_armhf.pl and
demo1_a2p_armhf.pl

-- 
You received this bug notification because you are a member of Ubuntu
Touch seeded packages, which is subscribed to perl in Ubuntu.
https://bugs.launchpad.net/bugs/1474366

Title:
  a2p has buggy output

Status in perl package in Ubuntu:
  New

Bug description:
  Ubuntu 14.04.2 LTS, amd64
  Package perl 5.18.2-2ubuntu1 amd64

  I tried to use a2p translator to convert simple AWK script to PERL
  script. I see that output is strange, characters are missing or are
  duplicated.

  Example of a2p output, fragment:

  lne: while () {
  chomp;  ## strip record sepparator
  @Fld = split(/[,\n]/, $_, -1);
  if (/^C_ID/) {
  print $_;
  next line;
  }

  Notice, label lne is there, not line, notice comment sepparator.
  This is just an example, a2p creates many similar errors. Other
  example:

  # crreate translation table
  for ($i = 32; $i  28; $i++) {
  rintfprintf('%02x', $i)} = sprintf('%c', $i);
  }
  is is heads header, print it

  lie: while () {
  chomp;  # stip record separator
  @Fld =  split(/[,\n]/, $_, -1);
  if (/^C_ID/) {
  print $_;
  next line;
  }

  if 0-9]0-9]/) {

  Notice, label lie is there, not line, notice comment crreate,
  notice that condition in for loop is $i28 but should be $i128,
  notice AWK line

  XT[sprintf(%02x, i)]=sprintf(%c, i);

  was translated to

  rintfprintf('%02x', $i)} = sprintf('%c', $i);

  and notice the last line with if.

  My LOCALE:

  $ locale
  LANG=en_US.UTF-8
  LANGUAGE=
  LC_CTYPE=en_US.UTF-8
  LC_NUMERIC=en_US.UTF-8
  LC_TIME=en_US.UTF-8
  LC_COLLATE=en_US.UTF-8
  LC_MONETARY=en_US.UTF-8
  LC_MESSAGES=en_US.UTF-8
  LC_PAPER=en_US.UTF-8
  LC_NAME=en_US.UTF-8
  LC_ADDRESS=en_US.UTF-8
  LC_TELEPHONE=en_US.UTF-8
  LC_MEASUREMENT=en_US.UTF-8
  LC_IDENTIFICATION=en_US.UTF-8
  LC_ALL=

  I will attach two AWK scripts and two PERL scripts created with a2p,
  like this: a2p demo.awk  demo_a2p_amd64.pl; a2p demo1.awk 
  demo1_a2p_amd64.pl

To manage notifications about this bug go to:
https://bugs.launchpad.net/ubuntu/+source/perl/+bug/1474366/+subscriptions

-- 
Mailing list: https://launchpad.net/~touch-packages
Post to : touch-packages@lists.launchpad.net
Unsubscribe : https://launchpad.net/~touch-packages
More help   : https://help.launchpad.net/ListHelp


[Touch-packages] [Bug 1474366] Re: a2p has buggy output

2015-07-16 Thread psl
** Attachment added: demo1_a2p_armhf.pl
   
https://bugs.launchpad.net/ubuntu/+source/perl/+bug/1474366/+attachment/4429958/+files/demo1_a2p_armhf.pl

** Description changed:

  Ubuntu 14.04.2 LTS, amd64
  Package perl 5.18.2-2ubuntu1 amd64
  
  I tried to use a2p translator to convert simple AWK script to PERL
  script. I see that output is strange, characters are missing or are
  duplicated.
  
  Example of a2p output, fragment:
  
  lne: while () {
  chomp;  ## strip record sepparator
  @Fld = split(/[,\n]/, $_, -1);
  if (/^C_ID/) {
  print $_;
  next line;
  }
  
  Notice, label lne is there, not line, notice comment sepparator. This
  is just an example, a2p creates many similar errors. Other example:
  
  # crreate translation table
  for ($i = 32; $i  28; $i++) {
  rintfprintf('%02x', $i)} = sprintf('%c', $i);
  }
  is is heads header, print it
  
  lie: while () {
  chomp;  # stip record separator
  @Fld =  split(/[,\n]/, $_, -1);
  if (/^C_ID/) {
  print $_;
  next line;
  }
  
  if 0-9]0-9]/) {
  
  Notice, label lie is there, not line, notice comment crreate,
  notice that condition in for loop is $i28 but should be $i128, notice
  AWK line
  
  XT[sprintf(%02x, i)]=sprintf(%c, i);
  
  was translated to
  
  rintfprintf('%02x', $i)} = sprintf('%c', $i);
  
  and notice the last line with if.
  
  My LOCALE:
  
  $ locale
  LANG=en_US.UTF-8
  LANGUAGE=
  LC_CTYPE=en_US.UTF-8
  LC_NUMERIC=en_US.UTF-8
  LC_TIME=en_US.UTF-8
  LC_COLLATE=en_US.UTF-8
  LC_MONETARY=en_US.UTF-8
  LC_MESSAGES=en_US.UTF-8
  LC_PAPER=en_US.UTF-8
  LC_NAME=en_US.UTF-8
  LC_ADDRESS=en_US.UTF-8
  LC_TELEPHONE=en_US.UTF-8
  LC_MEASUREMENT=en_US.UTF-8
  LC_IDENTIFICATION=en_US.UTF-8
  LC_ALL=
  
  I will attach two AWK scripts and two PERL scripts created with a2p,
- like this: a2p demo.awk  demo_a2p.pl
+ like this: a2p demo.awk  demo_a2p_amd64.pl; a2p demo1.awk 
+ demo1_a2p_amd64.pl

-- 
You received this bug notification because you are a member of Ubuntu
Touch seeded packages, which is subscribed to perl in Ubuntu.
https://bugs.launchpad.net/bugs/1474366

Title:
  a2p has buggy output

Status in perl package in Ubuntu:
  New

Bug description:
  Ubuntu 14.04.2 LTS, amd64
  Package perl 5.18.2-2ubuntu1 amd64

  I tried to use a2p translator to convert simple AWK script to PERL
  script. I see that output is strange, characters are missing or are
  duplicated.

  Example of a2p output, fragment:

  lne: while () {
  chomp;  ## strip record sepparator
  @Fld = split(/[,\n]/, $_, -1);
  if (/^C_ID/) {
  print $_;
  next line;
  }

  Notice, label lne is there, not line, notice comment sepparator.
  This is just an example, a2p creates many similar errors. Other
  example:

  # crreate translation table
  for ($i = 32; $i  28; $i++) {
  rintfprintf('%02x', $i)} = sprintf('%c', $i);
  }
  is is heads header, print it

  lie: while () {
  chomp;  # stip record separator
  @Fld =  split(/[,\n]/, $_, -1);
  if (/^C_ID/) {
  print $_;
  next line;
  }

  if 0-9]0-9]/) {

  Notice, label lie is there, not line, notice comment crreate,
  notice that condition in for loop is $i28 but should be $i128,
  notice AWK line

  XT[sprintf(%02x, i)]=sprintf(%c, i);

  was translated to

  rintfprintf('%02x', $i)} = sprintf('%c', $i);

  and notice the last line with if.

  My LOCALE:

  $ locale
  LANG=en_US.UTF-8
  LANGUAGE=
  LC_CTYPE=en_US.UTF-8
  LC_NUMERIC=en_US.UTF-8
  LC_TIME=en_US.UTF-8
  LC_COLLATE=en_US.UTF-8
  LC_MONETARY=en_US.UTF-8
  LC_MESSAGES=en_US.UTF-8
  LC_PAPER=en_US.UTF-8
  LC_NAME=en_US.UTF-8
  LC_ADDRESS=en_US.UTF-8
  LC_TELEPHONE=en_US.UTF-8
  LC_MEASUREMENT=en_US.UTF-8
  LC_IDENTIFICATION=en_US.UTF-8
  LC_ALL=

  I will attach two AWK scripts and two PERL scripts created with a2p,
  like this: a2p demo.awk  demo_a2p_amd64.pl; a2p demo1.awk 
  demo1_a2p_amd64.pl

To manage notifications about this bug go to:
https://bugs.launchpad.net/ubuntu/+source/perl/+bug/1474366/+subscriptions

-- 
Mailing list: https://launchpad.net/~touch-packages
Post to : touch-packages@lists.launchpad.net
Unsubscribe : https://launchpad.net/~touch-packages
More help   : https://help.launchpad.net/ListHelp