[24364] in Perl-Users-Digest
Perl-Users Digest, Issue: 6553 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue May 11 11:06:04 2004
Date: Tue, 11 May 2004 08:05:12 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Tue, 11 May 2004 Volume: 10 Number: 6553
Today's topics:
Accessing Windows WMI Info from Unix (John Ramsden)
Anything better than ExtUtils::MakeMaker ? <irving_kimura@lycos.com>
Re: Font Embedding in PDF <remorse@partners.org>
History of "statement if condition" syntax? <roy@panix.com>
Re: History of "statement if condition" syntax? <tadmc@augustmail.com>
Re: Making array elements Unique <postmaster@castleamber.com>
Re: Making array elements Unique <jurgenex@hotmail.com>
module bad design?) (Olivier Laurent)
Re: module bad design?) (Sam Holden)
Re: Net::Telnet getting control over root shell (David Efflandt)
Re: Net::Telnet getting control over root shell <remorse@partners.org>
Re: Net::Telnet getting control over root shell <jwillmore@remove.adelphia.net>
Printing multiple Array as multiple column <ewijaya@singnet.com.sg>
Re: Printing multiple Array as multiple column <postmaster@castleamber.com>
Re: Printing multiple Array as multiple column <tore@aursand.no>
Re: Printing multiple Array as multiple column (Greg Bacon)
Searching CPAN by regexps <nomail_please@nomail.com>
Re: Searching CPAN by regexps (Sam Holden)
Re: Searching CPAN by regexps <irving_kimura@lycos.com>
Re: Searching CPAN by regexps <irving_kimura@lycos.com>
Re: Very urgent: plz someone answer <cwilbur@mithril.chromatico.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 11 May 2004 06:46:00 -0700
From: john_ramsden@sagitta-ps.com (John Ramsden)
Subject: Accessing Windows WMI Info from Unix
Message-Id: <d27434e.0405110546.35426c25@posting.google.com>
I currently have a monitoring script that runs on Windows
and uses the Win32::OLE module to access and maintain
Windows WMI information.
Does anyone know if there is a portable module that would
allow the script to run remotely on either a Unix or Windows
system to access the same data on a Windows system?
For example, is there an OS-independent perl module to access
WBEM/CIM providers (of which Microsoft WMI is just one type) ?
Cheers
John R Ramsden (jr@`rm -rf /`)
P.S. Please do not reply to spam-trapper email.
------------------------------
Date: Tue, 11 May 2004 13:14:57 +0000 (UTC)
From: Irving Kimura <irving_kimura@lycos.com>
Subject: Anything better than ExtUtils::MakeMaker ?
Message-Id: <c7qjkh$hik$1@reader2.panix.com>
I once read in c.l.p.m. something to the effect that ExtUtils::MakeMaker
was really a short-term stop-gap solution, never intended to become
the workhorse module that it is today. (Cynics may reply that Perl
itself started out as a "short-term stop-gap solution").
I don't know how much truth there is to all of this, but I have to
say that I find ExtUtils::MakeMaker inflexible and all-around
difficult to use. Is there anything better out there?
Thanks!
Irv
--
NOTE: In my address everything before the period is backwards.
------------------------------
Date: Tue, 11 May 2004 09:56:36 -0400
From: Richard Morse <remorse@partners.org>
Subject: Re: Font Embedding in PDF
Message-Id: <remorse-A73B19.09563611052004@plato.harvard.edu>
In article <55d7995c.0405110007.64171ffc@posting.google.com>,
junk@dlink.org (Aqua) wrote:
> Group,
>
> I am using PDF::API2 perl module to create and modify few PDF files. I
> am adding few strings to the PDF. But when I run through PitStop tool
> I am getting font Helvetica not embedded.
>
> How do I embed standard core font like Helvetica in a PDF?
I think the whole point of a "core" font is that it doesn't need to be
embedded -- it is (by spec, I believe) supposed to be available to every
PDF display device.
If you try changing the font to 'Times-Roman', does PitStop still
complain? If so, you might try looking at its preferences and see if
there is something about warning when core fonts aren't present...
Also, I believe that you can just do:
my $font = $pdf->corefont('Helvetica');
without needing to provide a size at this point.
Ricky
--
Pukku
------------------------------
Date: Tue, 11 May 2004 09:45:48 -0400
From: Roy Smith <roy@panix.com>
Subject: History of "statement if condition" syntax?
Message-Id: <roy-DBDED9.09454811052004@reader2.panix.com>
Perl is the only language I know of where you can invert the body and
test of a condition, i.e. "exit 1 if $error'" instead of "if ($error) {
exit 1};". What's the history behind that? Are there other languages
which let you write conditionals like that? Did Perl invent that, or
borrow it from some earlier language?
Please note, I'm not interested in debates about whether this is good or
bad, I'm just looking for the history/chronology/etymology of the
construct.
------------------------------
Date: Tue, 11 May 2004 09:19:02 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: History of "statement if condition" syntax?
Message-Id: <slrnca1o6m.3uv.tadmc@magna.augustmail.com>
Roy Smith <roy@panix.com> wrote:
> Perl is the only language I know of where you can invert the body and
> test of a condition, i.e. "exit 1 if $error'" instead of "if ($error) {
> exit 1};". What's the history behind that? Are there other languages
> which let you write conditionals like that? Did Perl invent that, or
> borrow it from some earlier language?
BASIC-PLUS
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Tue, 11 May 2004 09:02:29 -0500
From: John Bokma <postmaster@castleamber.com>
Subject: Re: Making array elements Unique
Message-Id: <40a0dcf9$0$7437$58c7af7e@news.kabelfoon.nl>
George Kinley wrote:
> Hi
>
> I have an array of duplicate elements "char", I want to make the elements
> Unique and throw the redundant
> what solution came to my mind is I take element by element out of an array
> and create a hash checking the elements with "exists" and populate the hash
> is there any more intelligent way to do
Since you want to check each element, which is O(n), no.
--
John MexIT: http://johnbokma.com/mexit/
personal page: http://johnbokma.com/
Experienced Perl programmer available: http://castleamber.com/
------------------------------
Date: Tue, 11 May 2004 14:07:15 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: Making array elements Unique
Message-Id: <n65oc.113943$G_.300@nwrddc02.gnilink.net>
Bernard El-Hagin wrote:
> "George Kinley" <georgekinley@hotmail.com> wrote:
>> I have an array of duplicate elements "char", I want to make the
>> elements Unique and throw the redundant
>> what solution came to my mind is I take element by element out of
>> an array and create a hash checking the elements with "exists" and
>> populate the hash is there any more intelligent way to do
>
>
> No.
Actually there is. With a hash there is no need to check for exists()
because even adding the same key multiple times will result in only one
entry by the very nature of hashes. No need to waste time with exists().
jue
------------------------------
Date: 11 May 2004 06:28:49 -0700
From: oliderid@yahoo.co.uk (Olivier Laurent)
Subject: module bad design?)
Message-Id: <8d63e22a.0405110528.1f5fd197@posting.google.com>
Hi there,
I'm playing with perl to understand how I could make modules.
Here is my "first module" :-)...And...It doesn't work.
This module should parse a CSV file an extract the appropriate columns
(it should return an array).
I call it with:
my $test= parse_file->new(FILE=>"./log/1fr.txt",AREA=>6);
my $arrayref=$test->getdata();
But it fails. I receive an error "could not open SCALAR(XXXX)";
it seems that FILE is transformed into a hexadecimal code ?
What is my mistake?
package parse_file;
use 5.001;
use strict;
# use warnings;
sub new {
my $self = {};
$self->{'FILE'} = undef;
$self->{AREA} = undef;
bless {$self};
}
sub getdata
{
my $self;
my $file = $self->{FILE};
my $area = $self->{AREA};
my @data;
my @return_data;
open(MYFILE,'$file')|| die "cannot open $file: $!";
while(defined($a=<MYFILE>))
{
my @data=split(/\,/,$a);
push(@return_data,$data[$area]);
}
close(MYFILE);
$self->{'var'} = \@return_data;
# $self->{'var'}= \$file;
}
1;
Thank you!
Olivier
------------------------------
Date: 11 May 2004 14:00:25 GMT
From: sholden@flexal.cs.usyd.edu.au (Sam Holden)
Subject: Re: module bad design?)
Message-Id: <slrnca1n3p.qii.sholden@flexal.cs.usyd.edu.au>
On 11 May 2004 06:28:49 -0700, Olivier Laurent <oliderid@yahoo.co.uk> wrote:
> Hi there,
>
> I'm playing with perl to understand how I could make modules.
> Here is my "first module" :-)...And...It doesn't work.
>
> This module should parse a CSV file an extract the appropriate columns
> (it should return an array).
An array is not an array reference, your code and spec. disagree.
>
> I call it with:
> my $test= parse_file->new(FILE=>"./log/1fr.txt",AREA=>6);
> my $arrayref=$test->getdata();
>
> But it fails. I receive an error "could not open SCALAR(XXXX)";
> it seems that FILE is transformed into a hexadecimal code ?
> What is my mistake?
Your code doesn't output such a message. Not reporting the actual
behaviour makes it far less likely that people will be able to help.
Alternatively not posting the code you are actually running makes
is next to impossible that people will be able to help.
>
>
> package parse_file;
Lowercase only names are used for pragmas by convention in perl,
use a different name.
>
> use 5.001;
>
> use strict;
>
> # use warnings;
The warning you disabled by commenting out that line is
a bug in your code. Rather than telling perl to not bother
telling you what is wrong and asking here, why not read
what perl says and fix the problem.
It is insulting to be asked to do a job a machine can
do in a millisecond or so.
>
>
> sub new {
> my $self = {};
> $self->{'FILE'} = undef;
> $self->{AREA} = undef;
> bless {$self};
That does not do what you think it does.
The warning you disabled above gives a massive hint as to what is wrong
with it. Read the warning.
Also nowhere do you use @_ so the arguments to your new sub
are going to be ignored, so the fact that you passed some
above indicates yet another error.
> }
>
> sub getdata
> {
> my $self;
> my $file = $self->{FILE};
> my $area = $self->{AREA};
> my @data;
> my @return_data;
> open(MYFILE,'$file')|| die "cannot open $file: $!";
Those single quotes are wrong. Don't randomly place quote marks
in your perl code.
> while(defined($a=<MYFILE>))
> {
> my @data=split(/\,/,$a);
, is not special in a regex and hence doesn't need escaping.
[snip the rest]
--
Sam Holden
------------------------------
Date: Tue, 11 May 2004 13:16:33 +0000 (UTC)
From: efflandt@xnet.com (David Efflandt)
Subject: Re: Net::Telnet getting control over root shell
Message-Id: <slrnca1khh.bcs.efflandt@typhoon.xnet.com>
On 11 May 2004, Ramprasad A Padmanabhan <ramprasad.padmanabhan@oracle.com>
wrote:
> I am using Net::Telnet and getting a new shell on a remote machine
> all my commands work fine with
>
> $telnet->cmd("foo") format
>
> Now suppose I become root using "su" and "pass" I am not able to
> execute commands on this root shell
First make sure that your script uses the Perl -T switch (see 'perldoc
perlsec').
Not that this has anything to do with Perl, but are you using "su -" or
just plain "su"? Without the "-" you retain the environment of the user
you were before, which may not have the PATH needed for many root
programs and could also screw up file permission or ownership for the
user you logged into telnet. Read 'man su'.
--
David Efflandt - All spam ignored http://www.de-srv.com/
------------------------------
Date: Tue, 11 May 2004 10:02:09 -0400
From: Richard Morse <remorse@partners.org>
Subject: Re: Net::Telnet getting control over root shell
Message-Id: <remorse-816488.10020911052004@plato.harvard.edu>
In article <6e094b7d.0405110345.3c14c462@posting.google.com>,
ramprasad.padmanabhan@oracle.com (Ramprasad A Padmanabhan) wrote:
> Hi,
>
> I am using Net::Telnet and getting a new shell on a remote machine
> all my commands work fine with
>
> $telnet->cmd("foo") format
>
> Now suppose I become root using "su" and "pass" I am not able to
> execute commands on this root shell
>
> Can anyone show me How I can do this
Although I have _never_ used Net::Telnet, question about it seem to pop
up quite a bit. The problem is often in how the module recognizes the
"prompt". `su` can often change what the prompt looks like. Could this
be your problem?
Ricky
--
Pukku
------------------------------
Date: Tue, 11 May 2004 10:05:45 -0400
From: James Willmore <jwillmore@remove.adelphia.net>
Subject: Re: Net::Telnet getting control over root shell
Message-Id: <pan.2004.05.11.14.05.43.298236@remove.adelphia.net>
On Tue, 11 May 2004 04:45:18 -0700, Ramprasad A Padmanabhan wrote:
> I am using Net::Telnet and getting a new shell on a remote machine
> all my commands work fine with
>
> $telnet->cmd("foo") format
>
> Now suppose I become root using "su" and "pass" I am not able to execute
> commands on this root shell
>
> Can anyone show me How I can do this
This is just a guess ... you have to set your prompt to "Password", then
reset it to whatever the root prompt is. I'm thinking that your script
just hangs waiting for the root password.
To (dis)prove this, read the section of the Net::Telnet documentation on
debugging.
HTH
--
Jim
Copyright notice: all code written by the author in this post is
released under the GPL. http://www.gnu.org/licenses/gpl.txt
for more information.
a fortune quote ...
I am more bored than you could ever possibly be. Go back to
work.
------------------------------
Date: Tue, 11 May 2004 22:18:56 -0000
From: Edward Wijaya <ewijaya@singnet.com.sg>
Subject: Printing multiple Array as multiple column
Message-Id: <opr7uv9uvruj0cst@news.singnet.com.sg>
Hi,
I have again this array:
@array1 = (ab, bc, cd, ...)
@array2 = (cc, dd, ee, ...)
with: print join("\n", @array), "\n";
it does give:
ab
bc
cd
Can we extend it to for multiple array?
so that it gives:
ab cc
bc dd
cd ee
I tried print join ("\n", @array1, @array2), "\n";
But of no result.
Hope to hear from you guys.
Thanks again so much for your answer.
Regards
Edward WIJAYA
SINGAPORE
--
Using M2, Opera's revolutionary e-mail client: http://www.opera.com/m2/
------------------------------
Date: Tue, 11 May 2004 09:37:13 -0500
From: John Bokma <postmaster@castleamber.com>
Subject: Re: Printing multiple Array as multiple column
Message-Id: <40a0e51d$0$208$58c7af7e@news.kabelfoon.nl>
Edward Wijaya wrote:
> Hi,
>
> I have again this array:
>
> @array1 = (ab, bc, cd, ...)
> @array2 = (cc, dd, ee, ...)
>
> with: print join("\n", @array), "\n";
> it does give:
>
> ab
> bc
> cd
>
> Can we extend it to for multiple array?
>
> so that it gives:
>
> ab cc
> bc dd
> cd ee
>
>
> I tried print join ("\n", @array1, @array2), "\n";
> But of no result.
that prints first array1, then array2 etc...
you must specify more exactly, what if array1 is smaller / bigger than
array2?
--
John MexIT: http://johnbokma.com/mexit/
personal page: http://johnbokma.com/
Experienced Perl programmer available: http://castleamber.com/
------------------------------
Date: Tue, 11 May 2004 16:55:53 +0200
From: Tore Aursand <tore@aursand.no>
Subject: Re: Printing multiple Array as multiple column
Message-Id: <pan.2004.05.11.14.55.51.452074@aursand.no>
On Tue, 11 May 2004 22:18:56 +0000, Edward Wijaya wrote:
> I have again this array:
>
> @array1 = (ab, bc, cd, ...)
> @array2 = (cc, dd, ee, ...)
>
> with: print join("\n", @array), "\n";
> it does give:
>
> ab
> bc
> cd
>
> Can we extend it to for multiple array?
No need to; Text::Table alread does it for us.
--
Tore Aursand <tore@aursand.no>
"The purpose of all war is ultimately peace." (Saint Augustine)
------------------------------
Date: Tue, 11 May 2004 14:55:59 -0000
From: gbacon@hiwaay.net (Greg Bacon)
Subject: Re: Printing multiple Array as multiple column
Message-Id: <10a1qbvdb5cv91@corp.supernews.com>
In article <opr7uv9uvruj0cst@news.singnet.com.sg>,
Edward Wijaya <ewijaya@singnet.com.sg> wrote:
: I have again this array:
:
: @array1 = (ab, bc, cd, ...)
: @array2 = (cc, dd, ee, ...)
:
: with: print join("\n", @array), "\n";
: it does give:
:
: ab
: bc
: cd
:
: Can we extend it to for multiple array?
:
: so that it gives:
:
: ab cc
: bc dd
: cd ee
This'll be easier with Perl 6, but you can play map games for now:
#! /usr/local/bin/perl
my @array1 = qw( ab bc cd );
my @array2 = qw( cc dd ee );
print map "$_->[0] $_->[1]\n",
map { [ $array1[$_], $array2[$_] ] }
0 .. $#array1;
Yes, it could stand to be much more general. Take a look at Abigail's
code in <slrn7rpg81.ath.abigail@alexandra.delanet.com> for a start in
that direction.
Greg
--
It should be noted that government is never so zealous in suppressing
crime as when that crime consists of direct injury to its own sources of
revenue, as in tax evasion and counterfeiting of its currency.
-- Murray Rothbard
------------------------------
Date: Tue, 11 May 2004 13:34:16 +0000 (UTC)
From: Irving Kimura <nomail_please@nomail.com>
Subject: Searching CPAN by regexps
Message-Id: <c7qkoo$huv$1@reader2.panix.com>
I'm surprised that, given Perl's world-champion regular expression
engine, one can't use regular expressions to search CPAN. Is this
feature harder to implement than it looks?
If not, I'd love to take a stab at it. What are the channels?
Irv
--
NOTE: In my address everything before the period is backwards.
------------------------------
Date: 11 May 2004 14:05:30 GMT
From: sholden@flexal.cs.usyd.edu.au (Sam Holden)
Subject: Re: Searching CPAN by regexps
Message-Id: <slrnca1nda.qii.sholden@flexal.cs.usyd.edu.au>
On Tue, 11 May 2004 13:34:16 +0000 (UTC),
Irving Kimura <nomail_please@nomail.com> wrote:
>
>
>
> I'm surprised that, given Perl's world-champion regular expression
> engine, one can't use regular expressions to search CPAN. Is this
> feature harder to implement than it looks?
>
> If not, I'd love to take a stab at it. What are the channels?
perldoc CPAN :
Searching for authors, bundles, distribution files and modules
...
Arguments you pass to these commands are either strings exactly
matching the identification string of an object or regular
expressions that are then matched case-insensitively against various
attributes of the objects. The parser recognizes a regular
expression only if you enclose it between two slashes.
--
Sam Holden
------------------------------
Date: Tue, 11 May 2004 14:14:30 +0000 (UTC)
From: Irving Kimura <irving_kimura@lycos.com>
Subject: Re: Searching CPAN by regexps
Message-Id: <c7qn46$in1$1@reader2.panix.com>
In <slrnca1nda.qii.sholden@flexal.cs.usyd.edu.au> sholden@flexal.cs.usyd.edu.au (Sam Holden) writes:
>On Tue, 11 May 2004 13:34:16 +0000 (UTC),
> Irving Kimura <nomail_please@nomail.com> wrote:
>>
>>
>>
>> I'm surprised that, given Perl's world-champion regular expression
>> engine, one can't use regular expressions to search CPAN. Is this
>> feature harder to implement than it looks?
>>
>> If not, I'd love to take a stab at it. What are the channels?
>perldoc CPAN :
> Searching for authors, bundles, distribution files and modules
>
> ...
> Arguments you pass to these commands are either strings exactly
> matching the identification string of an object or regular
> expressions that are then matched case-insensitively against various
> attributes of the objects. The parser recognizes a regular
> expression only if you enclose it between two slashes.
I am sorry, I was not at all clear. I was referring to the
search.cpan.org website, not to CPAN.pm.
(I'm aware that Andy Kobe's CPAN search site has limited support
for regexps, but nowhere near the full power of Perl regexps.)
I also found the proper channel to my query (search.cpan.org/feedback).
I'm sorry for the confusion.
Irv
--
------------------------------
Date: Tue, 11 May 2004 14:50:54 +0000 (UTC)
From: Irving Kimura <irving_kimura@lycos.com>
Subject: Re: Searching CPAN by regexps
Message-Id: <c7qp8e$jbp$1@reader2.panix.com>
In <slrnca1nda.qii.sholden@flexal.cs.usyd.edu.au> sholden@flexal.cs.usyd.edu.au (Sam Holden) writes:
>On Tue, 11 May 2004 13:34:16 +0000 (UTC),
> Irving Kimura <nomail_please@nomail.com> wrote:
>>
>>
>>
>> I'm surprised that, given Perl's world-champion regular expression
>> engine, one can't use regular expressions to search CPAN. Is this
>> feature harder to implement than it looks?
>>
>> If not, I'd love to take a stab at it. What are the channels?
>perldoc CPAN :
> Searching for authors, bundles, distribution files and modules
>
> ...
> Arguments you pass to these commands are either strings exactly
> matching the identification string of an object or regular
> expressions that are then matched case-insensitively against various
> attributes of the objects. The parser recognizes a regular
> expression only if you enclose it between two slashes.
Actually, as I've just found even CPAN.pm's regexp support is
limited. For example, it doesn't recognize \W:
cpan> m /\Wedge/
Module id = SVG::Graph::Glyph::wedge
CPAN_USERID ALLENDAY (Allen Day <allenday@cpan.org>)
CPAN_VERSION undef
CPAN_FILE A/AL/ALLENDAY/SVG-Graph-0.01.tar.gz
INST_FILE (not installed)
(If Perl regexps were fully supported, the above command should
have returned
Module Image::Filter::Edge (B/BE/BEATNIK/Image-Filter-0.07.tar.gz)
Module Meta::Projects::Fortune::Edge (V/VE/VELTZER/Meta-0.08.tar.gz)
Module Meta::Projects::Md5::Edge (V/VE/VELTZER/Meta-0.08.tar.gz)
Module WordNet::Similarity::edge (S/SI/SID/WordNet-Similarity-0.06.tar.gz)
instead.)
I find this even more puzzling than the abscence of full regexp
support at search.cpan.org.
Irv
--
------------------------------
Date: Tue, 11 May 2004 14:44:17 GMT
From: Charlton Wilbur <cwilbur@mithril.chromatico.net>
Subject: Re: Very urgent: plz someone answer
Message-Id: <87sme7av3k.fsf@mithril.chromatico.net>
>>>>> "TMcC" == Tad McClellan <tadmc@augustmail.com> writes:
>> what kind of interview is this, that this question is so
>> urgent, that you have no time to look at the docs, or even make
>> a few simple tests, but still not so urgent that you can wait
>> for your question and the answers to propagate through usenet?
TMcC> Think he got the job?
Probably. And no doubt in two years I'll be hired to "maintain" his
nonfunctional code.
Charlton
--
cwilbur at chromatico dot net
cwilbur at mac dot com
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 6553
***************************************
