[11880] in Perl-Users-Digest
Perl-Users Digest, Issue: 5480 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Apr 25 20:07:36 1999
Date: Sun, 25 Apr 99 17:00:15 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sun, 25 Apr 1999 Volume: 8 Number: 5480
Today's topics:
Re: $. woes (Tad McClellan)
Re: $. woes <tchrist@mox.perl.com>
Re: $. woes (Ilya Zakharevich)
Decimal to fraction <webdude@mcminn.net>
Re: Different between recurrence and looping <zerez@netvision.net.il>
Extracting attachments from e-mail (Linux) <mats.pettersson@falukuriren.se>
Re: File Upload Status Message <mark@appal.com>
Re: Help me with a simple cgi/perl script <eugene@snailgem.org>
Re: Help! Error message when using C-comment stripper f ebatutis@my-dejanews.com
Re: How to make an array name to be a variable? <staffan@ngb.se>
pipe good after forked child exits? (Kesey)
simple print location and content-type? <jimx@metronet.com>
Re: simple print location and content-type? <flavell@mail.cern.ch>
Re: simple print location and content-type? <jimx@metronet.com>
STDOUT ?? <jimx@metronet.com>
Re: STDOUT ?? <jglascoe@giss.nasa.gov>
What is wrong with this picture? <bd@albany.net>
Re: What is wrong with this picture? <ffchopin@worldnet.att.net>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 25 Apr 1999 09:39:40 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: $. woes
Message-Id: <su5vf7.nj1.ln@magna.metronet.com>
Jerry Pank (jerryp.usenet@connected.demon.co.uk) wrote:
: I had hoped this snippet would pick records 1,7 & 12 from my \n
: separated text file.
:
: @rec_nos = qw( 1 7 12 );
Why are you converting them to strings if you are going to
use them as numbers anyway?
@rec_nos = ( 1, 7, 12 );
: open ( DB, "<$db_file" ) or die "$!Cant open db $db_file";
: foreach $. (@rec_nos) {
: $record = <DB>;
: &do_stuff($record);
: seek DB,0,0;
What is the seek() for?
: }
If the list of records is short, you can get away with:
while ($record = <DB>) { # untested!
do_stuff($record) if grep $_ == $., @rec_nos;
}
: My understanding was that $. is the line number of the last opened/read
: filehandle which is <DB> in this case. Isn't it ?
Yes.
After reading a line from DB (<DB>), $. will have the value of 1.
$. will be incremented by perl every time you read a line.
But you are not relying on perl setting the value of $. for you.
You are assigning numbers to $. that have no relation to the
number of line currently being read from the filehandle.
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 25 Apr 1999 12:59:00 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: $. woes
Message-Id: <372365f4@cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
Jerry Pank <jerryp.usenet@connected.demon.co.uk> writes:
:I had hoped this snippet would pick records 1,7 & 12 from my \n
:separated text file.
(You mean newline-terminated, actually.)
These are your fundamental file operations:
open a file, in some mode
close a descriptor
seek to reposition your read-write head
read a number of bites
write a number of bites
Everything else is a trick.
Anyway, you might look into the DB_File manpage's description of its
$DB_RECNO bindings, since you seem to think your bitestream is a stack
of lines/cards. It isn't, but the module can provide that illusion.
--tom
--
"I find this a nice feature but it is not according to the documentation.
Or is it a BUG?"
"Let's call it an accidental feature. :-)" Larry Wall in <6909@jpl-devvax.JPL.NASA.GOV>
------------------------------
Date: 25 Apr 1999 19:17:44 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: $. woes
Message-Id: <7fvpoo$qod$1@mathserv.mps.ohio-state.edu>
[A complimentary Cc of this posting was sent to Tom Christiansen
<tchrist@mox.perl.com>],
who wrote in article <372365f4@cs.colorado.edu>:
> These are your fundamental file operations:
>
> open a file, in some mode
> close a descriptor
> seek to reposition your read-write head
> read a number of bites
> write a number of bites
Wow, this is from Tom who does not know what a "hard disk" is!
While I indeed read with my head, I usually apply some other appendage
to write.
Ilya
------------------------------
Date: Mon, 26 Apr 1999 00:02:00 GMT
From: "JJ" <webdude@mcminn.net>
Subject: Decimal to fraction
Message-Id: <Y1OU2.2726$94.1233838@news1.usit.net>
is it possible to convert decimal values to fractions in a script? Maybe
with regular expressions?
------------------------------
Date: Sun, 25 Apr 1999 23:04:29 +0300
From: Erez Zuler <zerez@netvision.net.il>
Subject: Re: Different between recurrence and looping
Message-Id: <3723754D.9422E389@netvision.net.il>
I probably should write *usually* recursive calls uses less 'programmer' recourses
in
favor of system recourses.
Erez
Klaus Schilling wrote:
> Erez Zuler <zerez@netvision.net.il> writes:
>
> > Basically, everything that can be done with recursive calls can be done also
> > without recursive call. Recursive calls uses less 'programmer' recourses in
> > favor of system recourses.
> That's not always true.
> Klaus Schilling
------------------------------
Date: Mon, 26 Apr 1999 01:47:29 +0200
From: Mats Pettersson <mats.pettersson@falukuriren.se>
Subject: Extracting attachments from e-mail (Linux)
Message-Id: <3723A991.5974F885@falukuriren.se>
Hi!
Are there any modules or similar that can handle e-mail? Especially
attachments?
The problem:
A person is going to regulary post a mail with an attachment (text),
which i shall extract and make available on the web.
I thought i might try to make this automatic, since the webserver and
mailserver is on the same computer (RedHat Linux 5.2).
Mats
------------------------------
Date: Sun, 25 Apr 1999 16:13:34 -0500
From: Mark Bannister <mark@appal.com>
Subject: Re: File Upload Status Message
Message-Id: <3723857E.6C57CBC3@appal.com>
I forgot some info: program runs on our Host Service system using unix of
some sort.
Would a syswrite do this? If it does can anyone help with the syntax?
Thanks
Mark Bannister wrote:
> NEWBIE CODE MANGLER TYPE QUESTION
> I am doing a file upload page and would like to display the status of
> the upload. Nothing fancy, just some indication that something is still
> going on.
>
> I copied "Jeff's Script" and added what the output I would like to be
> (see bottom of page). Now the script does this $|=1; at the beginning,
> which I assume has something to do with buffering.
> The code below will not print until the upload is complete. I've
> searched dejanews, I thought I saw a discussion a few weeks back about
> print "....." while processing but I can't find it.
> Any help would be appreciated.
> Mark
>
> undef $BytesRead;
> undef $Buffer;
>
> print "<table Border=1 width='75%'><colgroup width='50\%'
> align=left><colgroup width='35\%' align=left><colgroup align=center>\n";
>
> print "<thead><tr><td>File
> Name</td><td>Uploading</td><td>Complete</td></tr></thead>\n";
> print "<tr><td>$Filename</td><td>";
> while ($Bytes = read($File_Handle,$Buffer,1024)) {
> $BytesRead += $Bytes;
> print ".";
> print OUTFILE $Buffer;
> }
> print "</td>\n";
> push(@Files_Written, "$SAVE_DIRECTORY\/$Filename");
> $TOTAL_BYTES += $BytesRead;
>
> $Confirmation{$File_Handle} = $BytesRead;
>
> close($File_Handle);
> close(OUTFILE);
> print "<td>YES</td>\n";
> #chmod (0662, "$SAVE_DIRECTORY\/$Filename");
> chmod (0777, "$SAVE_DIRECTORY\/$Filename");
> print "</tr>";
> }
>
> $FILES_UPLOADED = scalar(keys(%Confirmation));
>
> if ($TOTAL_BYTES > $MAXIMUM_UPLOAD && $MAXIMUM_UPLOAD > 0) {
> foreach $File (@Files_Written) {
> unlink $File;
> }
> &error3;
> exit;
> }
> print "</table>\n";
------------------------------
Date: Sun, 25 Apr 1999 21:03:14 +0000
From: Eugene Sotirescu <eugene@snailgem.org>
To: SatCP <satcp@ping.be>
Subject: Re: Help me with a simple cgi/perl script
Message-Id: <37238312.DA97F679@snailgem.org>
--------------51F1AFBCCCA481D35AEFE844
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
go out and buy a good book 'bout cgi and perl.
SatCP wrote:
> Hi everybody,
>
> I'm new to cgi, but want a script on my webpage. I've looked around on the
> web but couldn't find a script that does everything I want... I know most of
> you will say, go out and buy a good book 'bout cgi and perl, but I only need
> 1 simple script on my page and I'm not buying a book for that...
>
> Ok, here's the problem (I'll simplify it):
> 2 drop-down menus, one where you can choose "speed range" and the other
> "price range". After clicking Submit a script should return all matching
> cars. The script searches through a text file all cars that are in the
> selected price range and speed range.
> The text file should like this (I think), column 1 is the car name, column 2
> the speed and column 3 the price:
>
> Ferrari:300:200000
> Mercedes:250:80000
> Ford:200:30000
> ...
>
> How to do this in a CGI script?
> Please help me finnishing this simple script so I can make my webpage
> interactive...
> Thanks in advance,
>
> SatCP
--
Eugene
A language that doesn't affect the way you think about programming, is not worth knowing.
Alan J. Perlis
--------------51F1AFBCCCA481D35AEFE844
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
go out and buy a good book 'bout cgi and perl.
<p>SatCP wrote:
<blockquote TYPE=CITE>Hi everybody,
<p>I'm new to cgi, but want a script on my webpage. I've looked around
on the
<br>web but couldn't find a script that does everything I want... I know
most of
<br>you will say, go out and buy a good book 'bout cgi and perl, but I
only need
<br>1 simple script on my page and I'm not buying a book for that...
<p>Ok, here's the problem (I'll simplify it):
<br>2 drop-down menus, one where you can choose "speed range" and the other
<br>"price range". After clicking Submit a script should return all matching
<br>cars. The script searches through a text file all cars that are in
the
<br>selected price range and speed range.
<br>The text file should like this (I think), column 1 is the car name,
column 2
<br>the speed and column 3 the price:
<p>Ferrari:300:200000
<br>Mercedes:250:80000
<br>Ford:200:30000
<br>...
<p>How to do this in a CGI script?
<br>Please help me finnishing this simple script so I can make my webpage
<br>interactive...
<br>Thanks in advance,
<p>SatCP</blockquote>
<pre>--
Eugene
A language that doesn't affect the way you think about programming, is not worth knowing.
Alan J. Perlis</pre>
</html>
--------------51F1AFBCCCA481D35AEFE844--
------------------------------
Date: Sun, 25 Apr 1999 20:01:13 GMT
From: ebatutis@my-dejanews.com
Subject: Re: Help! Error message when using C-comment stripper from perlfaq
Message-Id: <7fvsa8$nas$1@nnrp1.dejanews.com>
In article <7fmbin$7gt$4@client2.news.psi.net>,
abigail@fnx.com wrote:
> James R. Goodfriend (GoodfriB@jntf.osd.mil) wrote on MMLIX September
> MCMXCIII in <URL:news:7flli5$5k2$1@news1.rmi.net>:
> ,,
> ,, I'm using the massive regular expression listed in perlfaq6 to strip
> ,, out the comments from a C file. (I won't repeat my code here since mine
> ,, exactly the same). When I run this using -w I get the following error
message
> ,,
> ,, Use of uninitialized value at (program) line 19, <CFILE> chunk 1.
> ,,
I am having the same problem and I don't mind posting my code :-)
Here's my program:
----start of faqtest.pl $/ = undef; $_ = <>;
s#/\*[^*]*\*+([^/*][^*]*\*+)*/|("(\\.|[^"\\])*"|'(\\.|[^'\\])*'|\n+|.[^/"'\\]
*)# $2#g; print; ---end of faqtest.pl
That's exactly what's in the FAQ. Here's my input
---input.txt starts
#include "remove me1"
#include "remove me2"
#include "remove me3"
# include "remove me4"
/* */
empty /**/
one space /* */
multi-line /* hi there
comment comment
end of comment */
c++ comment // comment is here
c++ comment in string "// comment is here"
empty c++ comment //
multiple /* comment1 */ comments /* comment2 */ end of line
comment in a string: " /* keep this */ "
c++ comment in a string: " // keep this "
string in c++ comment // this is a comment: "hi"
partial comment in a string: " /* start? "
no comment on this line
---input.txt ends
I run the program this way:
perl -w faqcode.pl <input.txt
Here's the output:
----output starts
Use of uninitialized value at ccmt.pl line 3, <> chunk 1.
Use of uninitialized value at ccmt.pl line 3, <> chunk 1.
Use of uninitialized value at ccmt.pl line 3, <> chunk 1.
Use of uninitialized value at ccmt.pl line 3, <> chunk 1.
Use of uninitialized value at ccmt.pl line 3, <> chunk 1.
Use of uninitialized value at ccmt.pl line 3, <> chunk 1.
#include "remove me1"
#include "remove me2"
#include "remove me3"
empty
one space
multi-line
c++ comment // comment is here
c++ comment in string "// comment is here"
empty c++ comment //
multiple comments end of line
comment in a string: " /* keep this */ "
c++ comment in a string: " // keep this "
string in c++ comment // this is a comment: "hi"
partial comment in a string: " /* start? "
no comment on this line
----output ends
I've combed the faqs and various books for a way to stop the warnings (besides
just turning off -w).
The only thing that kind of looked interesting was this:
s#...big expression...#g if $2;
but this doesn't stop any warnings. I'm guessing it doesn't help because of
the 'g' option on the 's'.
Maybe the regexp could be altered to always get _something_ into $2, but it
isn't obvious (to me) how to do that.
Warning about $n in this kind of operation doesn't seem all that useful to me,
but it would be nice to be -w clean.
Thanks for any help.
=Ed Batutis
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Sun, 25 Apr 1999 23:04:36 +0200
From: Staffan Liljas <staffan@ngb.se>
Subject: Re: How to make an array name to be a variable?
Message-Id: <37238364.5AD39E38@ngb.se>
Tad McClellan wrote:
>
> Tad McClellan (tadmc@metronet.com) wrote:
>
> : print "sometimes he kisses her $wife{$_}\n";
>
> Uhh. Make that:
>
> print "sometimes he kisses her $_\n";
No make that tenderly.
Staffan
------------------------------
Date: 25 Apr 1999 21:54:37 GMT
From: kesey@globe.ece.utexas.edu (Kesey)
Subject: pipe good after forked child exits?
Message-Id: <KESEY.99Apr25165437@globe.ece.utexas.edu>
I'm doing a fork from a parent process with open (KID, '-|'). The
parent waits for the child to exit and the reads from the KID
filehandle, which contains the output to the child's STDOUT. Most of
the time this works (except that there seem to be a limit of 10K bytes
of output piped in this way), but I'm having intermittent problems
associated with it. I haven't isolated whether the problems are due
to the way the pipe is handled.
But I have a strong suspicion that you're not supposed to read from
such a pipe after the child has exited. Can anyone confirm or deny
this? What I'll probably try to do instead is the following:
parent child
------------------------------------------------------------
launches child launched
other processing writes its output
sends a signal to parent
receives signal from child
sends signal to child
receives signal from parent
exits
Is that the right way to do things?
Thanks,
John
------------------------------
Date: Sun, 25 Apr 1999 13:51:18 -0500
From: Jimx <jimx@metronet.com>
Subject: simple print location and content-type?
Message-Id: <37236426.8791632B@metronet.com>
how do i print a location command after a content-type?
print "Content-type:text/html\n\n";
print "some text and html";
print "Location: $file_name\n\n";
please email if you can thanks
--
jimx@metronet.com
'...........................................................
' That which we call sin in others, is experiment for us.
'
' Ralph Waldo Emerson (1803-1882)
------------------------------
Date: Sun, 25 Apr 1999 21:12:26 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: simple print location and content-type?
Message-Id: <Pine.HPP.3.95a.990425205847.13058D-100000@hpplus01.cern.ch>
On Sun, 25 Apr 1999, Jimx wrote:
> how do i print a location command after a content-type?
This is not a perl language question. You're possibly looking for a CGI
specification or tutorial, and the comp.infosystems.www.authoring.cgi
usenet group.
http://hoohoo.ncsa.uiuc.edu/cgi/ has the CGI spec.
> print "Content-type:text/html\n\n";
The double newline ends the headers. What follows is the content
body of your transaction.
> print "some text and html";
> print "Location: $file_name\n\n";
Obviously this cannot work, for at least two reasons.
> please email if you can thanks
Ask on usenet, get answers on usenet.
What do you hope to achieve? You cannot send two documents in one
transaction like this, nor can you get one document displayed _and_
perform an HTTP direction at the same time.
You appear to be attempting the "virtual path" kind of redirection,
which would cause the server to return the document which you specify on
your Location header. In this case, attempting to also supply a content
body in your CGI response is pointless.
If you perform an external redirection (the other kind of Location
response), then practically all client agents will honour the
redirection. Your content-type and body content would be displayed only
by a client agent that did not honour the redirection (of which, as I
say, there would be few, if any), and disregarded by the rest.
ttfn
------------------------------
Date: Sun, 25 Apr 1999 17:50:30 -0500
From: Jimx <jimx@metronet.com>
Subject: Re: simple print location and content-type?
Message-Id: <37239C36.FFF90E0B@metronet.com>
Your right this probably is a cgi question and i apologize for that.
thank you for help and please ignore last post was not this for group.
print "Content-type:text/html\n\n";
print "some text and html";
print "Location: $file_name\n\n";
the idea was that $file_name is of different mime type like zip or exe
so as to invoke save to dialog from browser. better methods for this
sure.
------------------------------
Date: Sun, 25 Apr 1999 16:32:10 -0500
From: Jimx <jimx@metronet.com>
Subject: STDOUT ??
Message-Id: <372389DA.605333D2@metronet.com>
how do i print a location command after a content-type?
print "Content-type:text/html\n\n";
print "some text and html";
print "Location: $file_name\n\n";
------------------------------
Date: Sun, 25 Apr 1999 18:48:56 -0400
From: Jay Glascoe <jglascoe@giss.nasa.gov>
To: Jimx <jimx@metronet.com>
Subject: Re: STDOUT ??
Message-Id: <37239BD8.E42FD987@giss.nasa.gov>
[posted and cc'd]
Jimx wrote:
>
> how do i print a location command after a content-type?
>
> print "Content-type:text/html\n\n";
> print "some text and html";
> print "Location: $file_name\n\n";
why not just open and read the file from Perl?
open FH, "< $file_name" or die $!;
print while <FH>;
Jay Glascoe
------------------------------
Date: Sun, 25 Apr 1999 18:28:43 -0500
From: Brian Dodd <bd@albany.net>
Subject: What is wrong with this picture?
Message-Id: <3723A52B.22B0@albany.net>
I am looking for some help. Ihave een reading and working on this
all day with no succeess. Somone please help.
My program:
#!/usr/bin/perl
print "Content-type: text/html\n\n";
print <<'ending_print_tag';
<html>
<head>
<title>Hello World</title>
<background= "#000000" text="#ff0000">
</head>
<body>
<h1>Hello World</h1>
<hr noshade>
</body>
</html>
ending_print_tag
when I run it with telenet i get:
Illegal character \015 (carriage return) at hello.cgi line 2.
(Maybe you didn't strip carriage returns after a network transfer?)
chmod is 755
any answers?
------------------------------
Date: Sun, 25 Apr 1999 19:58:43 -0400
From: "Jason Simms" <ffchopin@worldnet.att.net>
Subject: Re: What is wrong with this picture?
Message-Id: <7g0a2r$nm2$1@bgtnsc02.worldnet.att.net>
Brian Dodd <bd@albany.net> wrote in message news:3723A52B.22B0@albany.net...
> I am looking for some help. Ihave een reading and working on this
> all day with no succeess. Somone please help.
>
> My program:
> #!/usr/bin/perl
> print "Content-type: text/html\n\n";
>
> print <<'ending_print_tag';
> <html>
> <head>
> <title>Hello World</title>
> <background= "#000000" text="#ff0000">
> </head>
> <body>
> <h1>Hello World</h1>
> <hr noshade>
> </body>
> </html>
> ending_print_tag
>
>
> when I run it with telenet i get:
>
>
> Illegal character \015 (carriage return) at hello.cgi line 2.
>
> (Maybe you didn't strip carriage returns after a network transfer?)
>
> chmod is 755
>
> any answers?
Did you write the program on a non-UNIX system and then send it over to UNIX
for execution? The problem does not, as far as I can tell, lie in your
code. Here is the reason why: on UNIX, only one character constitutes a
newline, while on others (Win32, DOS, etc.), it is two characters (note when
I say character, it should probably be byte, but anyway...). Thus, every
time you hit the "Enter" key on a Windoze box, you get two characters at the
end of your line instead of one as it would be in UNIX environments. You
then FTP the file to UNIX, and UNIX doesn't like that extra character. My
advice: if your scripts are to be used on UNIX, then type them in UNIX. My
guess is you don't like the tools available to you on that system... Yes,
yes, Windoze has color-coding and such, but so does UNIX! Learn vi, love
it, live it... If all else fails, use Pico or some other easier editor.
Or, god forbid, use a UNIX-line feed-aware program for Windows, such as
Ultra Edit 32 or Homesite, both of which allow saving in native UNIX format.
Jason Simms
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
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.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
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 V8 Issue 5480
**************************************
