comment on

Reverends monks, I humbly ask for your wisdom to elighten me.....
I found this weird behavior of a C program embedding perl. If you compile the enclosed program by

cc -o test test.c -Wall `perl -MExtUtils::Embed -e ccopts -e ldopts`
[download]

and then execute the resulting executable, then:

If LANG isn't set, or it's set to a language using '.' as decimal point, then everithing goes well. Same thing if I force LC_NUMERIC to be C.
On the other side, if LANG is something like it_IT.ISO-8859-1, whic claimes for a comma, I get the following error:
```
Argument "5,00503" isn't numeric in require at /usr/lib/perl5/5.005/i3
+86-linux/Config.pm line 7.
[download]
```
It seems that $] has value 5,00503 instead of 5.00503...

This looks weird :( Should I fill a bug report, or simply I made a mess? :)))
humbly waiting for a reply :)

/*test.c*/

#include <EXTERN.h>               /* from the Perl distribution     */
#include <perl.h>                 /* from the Perl distribution     */
#include <stdio.h>
#include <locale.h>

static PerlInterpreter *my_perl;  /***    The Perl interpreter    ***/

static char *perl_args[] = { "", "-e", "0", "-w" };
static char perl_script[] = {
  "use IO::Socket;\n" 
  "my $sock = new IO::Socket::INET or die qq/Can't create socket!/;\n"
  "print qq/Done\n/;"
};
 
extern void xs_init _((void));
extern void boot_DynaLoader _((CV * cv));
void
xs_init ()
{
    char *file = __FILE__;
    /* this allows using dynamicaly loaded modules... see
       perlembed manpage*/
    newXS ("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
}


int main(int argc, char **argv, char **env)
{

  setlocale (LC_ALL, "");
  fprintf(stderr,"Locale value for NUMERIC is %s\n",setlocale(LC_NUMER
+IC,NULL));  my_perl = perl_alloc();
  perl_construct(my_perl);
  perl_parse(my_perl, xs_init, 4, perl_args, (char **)NULL);
  perl_eval_pv(perl_script,(I32) NULL);
  perl_destruct(my_perl);
  perl_free(my_perl);
  exit(0);
}
[download]

TheHobbit

In reply to Embedded Perl, LC_NUMERIC and the $ variable. by TheHobbit

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		`&`
	<		`<`
	>		`>`
	[		`[`
	]		`]`

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.