HDTenEightyP/NetNews huggingface dataset:
From: Rick Emerson <rick@ssg.com>
Subject: Includes in MS-DOS perl?
Reply-To: rick@ssg.com
Organization: The Internet
Date: Thu, 15 Oct 1992 14:57:51 GMT

I'm unable to include a package of subroutines (rfc822.pl) in my MS-DOS
version of perl.  I've tried a number of variants of
   #include <c:/waffle/bin/rfc822.pl>
with slashs tilted foreward and backwards, with quotes around the string
(with and without the surrounding <>).  I also tried -I c:/waffle/bin and
even -I c:/waffle/bin/rfc822.pl.  I moved a copy of rfc822.pl into the
sub-directory with perl.exe.  All have been fruitless.  The manpage shipped
with this version of perl says the normal include should work - obviously,
I'm missing something.  What?

Rick


| Richard B. Emerson     | Replies may be sent to:                         |
| System Support Group   |                        rick@ssg.com             |
| 940 Delaware Avenue    |-------------------------------------------------+
| Lansdale, PA 19446 USA | "...don't forget to listen to the steady beat,  |
| Voice: 215.855.1607    |  don't forget to balance on your ready feet."   |
Newsgroups: comp.lang.perl
From: sfy@koel.mel.dit.CSIRO.AU (Shane Youl)
Subject: Sorting associative arrays based on the value
Organization: CSIRO DIT (Melb.)
Date: Mon, 12 Oct 92 08:29:06 GMT

This may be a FAQ, but then again...

I have an associative array $Table{$Name} = $Number which I would like
to sort by $Number. I have been converting the associative array into an
ordinary two-d array and using the SUBROUTINE option to sort, but I
thought that there might be a more elegant solution.

Thanks...Shane
--
  Shane Youl                                  ,-_|\    sfy@mel.dit.CSIRO.AU
  CSIRO Division of Information Technology   /CSIRO\   +61 3 282 2626
  723 Swanston Street Carlton 3053           \_,-._/
  AUSTRALIA                                       v    DoD#0504
From: ram@eiffel.com (Raphael Manfredi)
Newsgroups: comp.lang.perl
Subject: Re: local() bug?
Date: 16 Oct 92 22:30:15 GMT
Organization: Interactive Software Engineering, Santa Barbara CA

Quoting kherron@ms.uky.edu (Kenneth Herron) from comp.lang.perl:
>But the following prints a blank line:
>
>	sub testit {
>		local($foo);
>		$_[0] = 5;
>	}
>	&testit($foo);
>	print $foo, "\n";
>
>Bug, or nonobvious-from-the-docs feature?

Well, I think what happens here is that $_[0] refers to the variable you pass
(i.e. $foo) but via a "type glob", so when you create a new entry '$foo' via
the local() statement, you modify this new variable and the original remains
empty, hence the blank line you get.

Whether it is a bug or not depends on the way you look at it. After all, the
local() statement is here to provide *dynamic* scoping, not static scoping,
and therefore that kind of behaviour is to be expected. Although I agree it
is a little confusing.
-- 
Raphael Manfredi <ram@eiffel.com>
Interactive Software Engineering Inc.
270 Storke Road, Suite #7                      / Tel +1 (805) 685-1006 \
Goleta, California 93117, USA                  \ Fax +1 (805) 685-6869 /
Newsgroups: comp.lang.perl,comp.unix.aix
From: Tom Christiansen <tchrist@convex.COM>
Subject: Re: Sockets again...(Perl-Bug?)
Originator: tchrist@pixel.convex.com
Date: Fri, 16 Oct 1992 20:51:52 GMT
Reply-To: tchrist@convex.COM (Tom Christiansen)
Organization: Convex Computer Corporation, Colorado Springs, CO
Keywords: Sockets
X-Disclaimer: This message was written by a user at CONVEX Computer
              Corp. The opinions expressed are those of the user and
              not necessarily those of CONVEX.

From the keyboard of zh@nike.rz.uni-konstanz.de.:
:But if i code it like this:
:
:($name, $foo, $foo, $foo, $localaddr) = gethostbyname($localhost) || die "Booom!";
:....
:.... then the line containing connect will always fail.

It's a precedence problem.  || is not a list operator.  You need:

    (($name, $foo, $foo, $foo, $localaddr) = gethostbyname($localhost)) 
	|| die "Booom!";

--tom
-- 
    Tom Christiansen      tchrist@convex.com      convex!tchrist

    echo "Your stdio isn't very std."
            --Larry Wall in Configure from the perl distribution
Newsgroups: comp.lang.perl
From: ken@visix.com (Ken Mayer)
Subject: Writing an interactive inet daemon
Date: Tue, 13 Oct 1992 16:08:12 GMT
Distribution: na
Reply-To: ken@visix.com
Organization: Visix Software Inc., Reston, VA


I'm trying to write an inet-spawned daemon that does a
challenge/response front end for telnet-style daemons. The perl script
itself is just using standard input and output. Sometimes, when I
print, it appears that an extra carriage-return is getting stuffed
into the output stream (no newline) so characters get overwritten. Not
terrible important since the interaction is pretty short, but I wonder
why this is happening. Should my perl-daemon send some sort of control
characters back to the telnet client to configure some tty-type
setttings?

Ken
--

Ken Mayer (ken@visix.com)
Visix Software Inc./703.758.8230
  Bene Vivere Ultio Optima --- Living Well is the Best Revenge
From: ndjc@leo.irv.icl.com (Nick Crossley)
Newsgroups: comp.lang.perl
Subject: setuid scripts
Summary: Should be allowed in SVR4 and others?
Keywords: setuid,setgid
Date: 8 Oct 92 01:36:20 GMT
Organization: ICL Advanced Development Group, Irvine CA

As I understand it, the security hole in setuid scripts is believed to
be fixed in systems using /dev/fd to pass the file id over to the
interpreter (such as SVR4 and I would guess BSD 4.4).

If this is true, should perl 5 ask about this at config time and allow
setuid scripts on such systems?
-- 

<<< standard disclaimers >>>
Nick Crossley, ICL NA, 9801 Muirlands, Irvine, CA 92718-2521, USA 714-458-7282
uunet!ccicpg!ndjc  /  ndjc@irv.icl.com
Newsgroups: comp.lang.perl
From: alex@tsmnet2.uucp (Alex Mason)
Subject: SCO w/Perl trouble
Organization: E-Systems, Melpar Division
Date: Thu, 8 Oct 1992 14:23:06 GMT

I'm having trouble getting perl-4.035 to run on a SCO 3.2.2 box.
The symptoms are memory fault(core dump) after running make test
at the end of compilation. The possible variables I see are I do
have crypt support (I ended up specifying -lcrypt_d) and the fact
that I took out the -ldir reference that Configure was looking for
because the linker complained that it could not find it.
Other than that, I took all the default parameters. Has anyone
had problems with SCO?

Thanks in advance...

Alex Mason
uunet!melpar!alex
alex%melpar@uunet.uu.net
 
Xref: sparky comp.lang.perl:6418 comp.databases:7128
From: buzz@toxicavenger.bear.com (Buzz Moschetti)
Newsgroups: comp.lang.perl,comp.databases
Subject: The DBperl Project - update #1
Date: 8 Oct 92 11:52:37 GMT
Reply-To: buzz@fsrg.bear.com (Buzz Moschetti)
Distribution: comp
Organization: Bear, Stearns & Co. Inc.

Well, there certainly doesn't seem to be any lack of interest in DBperl.
Many people have sent email with suggestions, comments, and questions.
Here is a fast update -- a FAQ of sorts:

Q1.  Is there a mailing list yet?
A1.  No.  It's still too early in the game to start one going.

Q2.  (Where can I get|Who wrote) (Infoperl|Interperl|Oraperl|Sqlperl|Sybperl)?
A2.  A table suits us nicely here.  The people listed in the "Who" column 
     are the ones to contact for more information -- I'm not sure where all
     these packages are archived.

What		Target DB	Who
--------	-----------	----------------------------------------
Infoperl	Informix	Kurt Andersen (kurt@hpsdid.sdd.hp.com)
Interperl	Interbase	Buzz Moschetti (buzz@fsrg.bear.com)
Oraperl		Oracle		Kevin Stock (kstock@encore.com)
Sqlperl		Ingres		Ted Lemon (mellon@ncd.com)
Sybperl		Sybperl		Michael Peppler (mpeppler@itf.ch)

Q3.  How are you going to do the dynamic binding?
A3.  We don't know yet! :-)   That part will come later, after the API is 
     done and working.
From: tchrist@convex.COM (Tom Christiansen)
Newsgroups: comp.lang.perl
Subject: Re: Visual
Date: 8 Oct 92 16:32:47 GMT
Article-I.D.: news.1992Oct8.163247.12618
Reply-To: tchrist@convex.COM (Tom Christiansen)
Organization: Convex Computer Corporation, Colorado Springs, CO
Originator: tchrist@pixel.convex.com
X-Disclaimer: This message was written by a user at CONVEX Computer
              Corp. The opinions expressed are those of the user and
              not necessarily those of CONVEX.

From the keyboard of djd@csg.cs.reading.ac.uk (David J Dawkins):
:I don't know about anyone else, but I would sure like to know what 
:Larry, Tom and Randall *look* like :-}
:
:You guys been digitised? 

Nope, but I've been digitized.

--tom
-- 
    Tom Christiansen      tchrist@convex.com      convex!tchrist

Eighty percent of air pollution comes from plants and trees.
                -- Ronald Reagan, famous movie star
From: ccs@aber.ac.uk (Christopher "Jd" Samuel)
Newsgroups: comp.lang.perl
Subject: Re: perl monitor
Date: 10 Oct 92 16:30:47 GMT
Organization: University of Wales - Aberystwyth - Prifysgol Cymru

In article <simon.718381184@giaeb>
   simon@giaec.cc.monash.edu.au (simon shields) doodled:

> It has to be transparent to the user. It simply records the commands
> typed in and files a report when the user logs off. It reports stats
> like, the commands used, frequency of use, most frequently used
> command, the time the user was logged on for etc..

From what you say you want it to do, I don't understand why you need to
actually run this on the terminal the user is on.  You could get the
information from the log files (wtmp for login times and the acct file
for commands - these should both be in section 5 of the manual, and are
accessed via the last and lastcomm commands respectively) which would be
a lot easier than bodging things through pty's. 

Cheers,
Chris
-- 
 Christopher Samuel, c/o Computer Unit, UCW Aberystwyth, Aberystwyth, WALES
  RFC: ccs@aber.ac.uk   UUCP: *!mcsun!uknet!aber!ccs   JNT: ccs@uk.ac.aber
          Deddf Iaith Newydd i Gymru | New Language Act for Wales
Newsgroups: comp.lang.perl
From: twpierce@unix.amherst.edu (Tim Pierce)
Subject: Re: Why I am glad I know perl
Organization: Amherst College, Amherst MA
Date: Fri, 9 Oct 1992 23:55:23 GMT

In article <francis.718520754@monod> francis@monod.Biol.McGill.CA (Francis Ouellette) writes:

>and a system administrator should alias is rm to 'rm -i' anyways,
>always!

As it was pointed out to me the last time I said this :-), a good
system administrator should never do this.  It is always questionable
whether it's good to get into the habit of thinking a standard command
behaves differently than it really does, but I don't think there's any
benefit when this is applied to "rm."  If you move to a different
computer, or get tossed into a shell without aliasing (e.g. the Bourne
shell), you're a duck out of luck when you do "rm irreplacable-file".

Aliasing something else, such as "del", to "rm -i", is another matter
entirely.

-- 
____ Tim Pierce                / "You are just naive and repressed because
\  / twpierce@unix.amherst.edu /  penis envy is here and it's now and it's
 \/ (BITnet: TWPIERCE@AMHERST) /  all around you." -- Neal C. Wickham
From: mooring@grimoire.tymnet.com (Ed Mooring)
Newsgroups: comp.lang.perl
Subject: Re: Challenge!
Keywords: challenge, freq
Date: 16 Oct 92 23:29:23 GMT
Organization: BT Tymnet Bit Bucket Brigade

In article <1992Oct16.195901.3252@neptune.inf.ethz.ch> weingart@inf.ethz.ch writes:
>Hello all.  Here is a short perl script that takes <>,
>and prints out the number of times it encounters each
>\w.  Does anyone have a shorter version, and/or a version
>that runs faster?
>50.6 user, 5.7 sys, 1:06 real, 84% cpu
>0k text, 592k data+stack, 592k avg, 83k max
>4 in, 0 out, 46 faults, 106 reclaims, 0 swaps
      [ lines elided to save space ]
>
>Script:
>#!/usr/local/bin/perl
>while(@_ = split(//, <>)){ for(@_){ tr/[A-Z]/[a-z]/; $array{$_}+=1; } }
>for(sort(keys %array)){ print "$_\t$array{$_}\n" unless( ! m/\w/ ); }
>
>This was run on an IPC.
>
>--Toby.
>does not count. ;)

On a Sparcstation 2:
28.3u 5.2s 0:46 71% 0+600k 6+0io 6pf+0w

This
----snip---
#!/usr/local/bin/perl
$code = <<'EOF';
undef $/;
while(<>)
{
    chop;
    y/A-Z/a-z/;
EOF
for $can ('a'..'z',0..9)
{
    $code .= '    $array{"'.$can.'"} += y/'.$can.'/'.$can.'/;'."\n";
}
$code .= "}\n";
print $code;
eval $code;
print $@;

for(sort(keys %array)){ print "$_\t$array{$_}\n" unless( ! m/\w/ ); }
exit 0;
----snip---
gives me 
2.9u 0.3s 0:05 57% 0+1104k 0+0io 0pf+0w

Most of the speed-up seems to be in the slurp mode.  The eval is there
to make it easier to write.  One of the real gurus can probably blow
my doors off with a one-liner though :)

Regards,
Ed Mooring (mooring@tymix.tymnet.com 408-922-7504)
From: egf@pivot.sbi.com (Eric Fifer)
Newsgroups: comp.lang.perl
Subject: Re: Dynamic Loading for Perl
Date: 11 Oct 92 10:03:01 GMT
Organization: Salomon Brothers Inc., NY

In article <9210080916.AA19163@isfrance.encore.fr>, kstock@isfrance.encore.fr (Kevin Stock) writes:
>
> This requires the dynload(3x) dynamic loading interface, but it could
> be a starting point for other implementations (for example, GNU's DLD).

I've done something similar with SunOS's dlopen(3x) routines.

Plus, I provided a mechanism that dynamically creates a stack frame
so that it can call most C and Fortran functions.  Only a pack style
description of the function parameters and return value is required.

The end result looks like:

	$dl_so = &dl_open("/lib/libc.so.1.6");
	die "$0: $dl_errstr" if($dl_errno);

	$dl_sub = &dl_sym($dl_so, "gethostname");
	die "$0: $dl_errstr" if($dl_errno);

	eval <<EOC;
		sub gethostname {
			&dl_call("$dl_sub", "+a i", "i", @_);
		}
	EOC

	@vals = &gethostname(' ' x 80, 80);
	print "@vals\n";

If there is interest I could clean it up and post it.  However, it is
SunOS (dlopen), SPARC (a couple of lines of assembler) and gcc (asm
extensions) specific.

--
Eric Fifer
Salomon Brothers Asia Limited
Urbannet Otemachi Bldg, 18th Fl
2-2, Otemachi 2-chome             | Internet: egf@sbi.com
Chiyoda-ku, Tokyo 100, Japan      | UUCP:     uunet!sbi!egf
From: smith@joplin.biosci.arizona.edu
Newsgroups: comp.lang.perl
Subject: Installing perl on SUNOS 4.1.2
Date: 7 Oct 92 20:37:47 GMT
Organization: University of Arizona, Biotechnology, Tucson

Thanks
From: tchrist@convex.COM (Tom Christiansen)
Newsgroups: comp.lang.perl
Subject: Re: Conversion of a largish script to perl
Date: 8 Oct 92 16:23:17 GMT
Article-I.D.: news.1992Oct8.162317.11810
Reply-To: tchrist@convex.COM (Tom Christiansen)
Organization: Convex Computer Corporation, Colorado Springs, CO
Originator: tchrist@pixel.convex.com
X-Disclaimer: This message was written by a user at CONVEX Computer
              Corp. The opinions expressed are those of the user and
              not necessarily those of CONVEX.

From the keyboard of aps583@huxley.anu.edu.au (Anthony P Scott):
:I have written a largish shell script that makes use of the shell (sh),
:sed and awk as well as making calls to a set of fortran programs.
:
:While the script does what is wanted it is slow in some areas, mainly
:in the use of sed to delete ranges of text and the like. Also there
:are some features in perl that I could make use of in getting an
:even better script.
:
:I can use a2p and s2p to translate individual portions of my script
:but does any body have an idea on how to translate the sh portions?
:
:I suppose the perl version could be developed the same way as the 
:present script, that is piece by piece, but that is quite slow
:an tedious and the script works now and I don't have the time and ....

I fear that there's no automated way, because the big gains
in speed will be through re-evaluating and reimplementing 
the underlying algorithm.

--tom
-- 
    Tom Christiansen      tchrist@convex.com      convex!tchrist
    Sorry.  My testing organization is either too small, or too large, depending
    on how you look at it.  :-)
            --Larry Wall in <1991Apr22.175438.8564@jpl-devvax.jpl.nasa.gov>
Newsgroups: comp.lang.perl
From: Tom Christiansen <tchrist@convex.COM>
Subject: Re: Sorting associative arrays based on the value
Originator: tchrist@pixel.convex.com
Date: Mon, 12 Oct 1992 16:45:22 GMT
Reply-To: tchrist@convex.COM (Tom Christiansen)
Organization: Convex Computer Corporation, Colorado Springs, CO
X-Disclaimer: This message was written by a user at CONVEX Computer
              Corp. The opinions expressed are those of the user and
              not necessarily those of CONVEX.

From the keyboard of tchrist@convex.COM (Tom Christiansen):
:Really long ago:
:
:    sub bynumvalue { $Table{$a} <=> $Table{$b}; } 

That should be "-" not "<=>" if it's really long ago.

--tom
-- 
    Tom Christiansen      tchrist@convex.com      convex!tchrist

Just remember: when you go to court, you are trusting your fate to
twelve people that weren't smart enough to get out of jury duty!
From: fair@apple.com (Erik E. Fair)
Newsgroups: comp.lang.perl
Subject: Why no regression tests for socket IPC?
Date: 8 Oct 92 10:10:25 GMT
Organization: Engineering Computer Operations, Apple Computer, Inc.

Why are there no regression tests for the socket calls (e.g. socket,
socketpair, bind, listen accept, etc)?

I suspect the compiler on the system I'm unfortunately cursed with of
doing malevolent violence to Larry's code, because a code inspection of
the system call I'm trying to get to work (socketpair(2)) reveals that
no way, no how should I be getting the error I'm getting ("Bad
address") from it. It is flatly impossible, unless the compiler goofed
badly.

A test for basic operation of the socket calls would have saved me the
trouble of writing the code I wrote that uses this stuff. I'll probably
use open2.pl (thanks, Tom!) instead. Too bad that burns twice as many
descriptors for the same job.

	(unprintable, grossly offensive, expletive deleted concerning
	ancestry of certain unnamed programmers who produced the UNIX
	system I'm afflicted with),

	Erik E. Fair    apple!fair      fair@apple.com
From: ej@id.dth.dk (Erik Johansen)
Newsgroups: comp.lang.perl
Subject: Re: Question:Perl & Sockets
Keywords: Sockets
Date: 14 Oct 92 07:45:43 GMT
Organization: Department of Computer Science

zh@nike.rz.uni-konstanz.de. (Z. Horvat) writes:

>I'm relatively new to perl and much more new to Socket programming.
>If someone could enlighten me on the following, i would really be glad...

>I'm trying to set up a "telnet"-connection to a remote host.
>Basically, I would like to read in the output of the remote telnet session
>and send some commands there.

>This is what i've done so far :

>require "sys/socket.ph";
>$packstr = 'S n a4 x8';
>$remotehost = "blah.bluh.foo.bar";
>chop($localhost = 'hostname');

 I suppose you really meant to write (note backticks):

 chop($localhost = `hostname`);
   or
 chop($localhost = `/bin/hostname`);

-- 
Erik Johansen / Institute for Computer Science / Danish Technical University
ej@id.dth.dk
From: francis@monod.Biol.McGill.CA (Francis Ouellette)
Newsgroups: comp.lang.perl
Subject: Re: Why I am glad I know perl
Date: 8 Oct 92 05:05:54 GMT
Organization: McGill University

rsk@gynko.circ.upenn.edu (Rich Kulawiec) writes:

>>Here is just one reason why every system administrator should know perl.
>>
>>Scenario:  Sitting in a window on a standalone workstation as root.
>>           Enter "rm *" assuming that I am in /foobar/blech/bin.

>System administrators, at least those who are worth their salt, do
>not enter "rm *" as root unless they mean it.    As wonderful as perl
>may be, it's no substitute for extraordinary care when one is su'd.

>Anachronistically still using awk, sed, and the rest,
>---Rsk

and a system administrator should alias is rm to 'rm -i' anyways,
always!

still trying to learn awk sed and grep and all those animals ...  :-)

francis

--
| B.F. Francis Ouellette  
| manager, yeast chromosome I project
| dept of biology, McGill university, Montreal, Qc, Canada
| francis@monod.biol.mcgill.ca
Newsgroups: comp.lang.perl
From: buboo@alf.uib.no (Ove Ruben R Olsen)
Subject: Re: Is 'x' contained within a list
Followup-To: poster
Organization: University of Bergen, Norway
Date: Wed, 14 Oct 92 21:31:16 GMT

Dave Brillhart writes: 

>Ideally, a function like: is_in(x,@list) would return true
>if x was in the list.

I have developed a set of functions dealing with lists. More functions 
are on the drawing board.  They are wery sparse and have limited error 
checking, but they work for _my current task_. Someday I may rewrite 
them to suit a package.
BEWARE: They are not wery portable. Nor written to suit everyone except
	my current task. Optimizing should be done.

################################################################################
#
# Array support functions | arry | arrays
#
# Copyright Ove Ruben R Olsen (C) 1992.
# Email: Ruben@UiB.No
#
# Public Domain. The author is NOT responsible for any damange this  functions
# may cause on your system.
#
# *Arry ($match,@ARRAY);
#
################################################################################

sub NumArry { # Return the items place in the array.
  $ende = -1 ;
  $junk = shift (@_);
  for $a ($[..$#_) {
    $ende = $a,last if (@_[$a] =~ /$junk/i) ;
  }
  $ende ;
}

sub AddArry { # Add item to arry if item not in arry
  $junk = shift (@_);
  $a = 1  ;
  for (@_) {
    $a = 0, last if ($_ =~ /$junk/i) ;
  }
  push (@_,$junk) if ($a);
  @_ ;
}

sub NextArry { # Return next item in arry, 1st item if last.
  $junk = shift (@_);
  $a = 0 ;
  for (@_) {
    last if ($_ =~ /$junk/i) ;
    $a ++ ;
  }
  $a ++ ;
  $a = 0 if ($a > $#_)  ;
  @_[$a] ;
}

sub FindArry { # Return propper item if item in arry ;
  $junk = shift (@_);
  $a = '';
  for (@_) {
    $a = $_ , last if ($_ =~ /$junk/i) ;
  }
  $a ;
}

sub LightArry { # Highlight item, return string.
  $junk = shift (@_);
  $a = '' ;
  for (@_) {
    $a = "$a [$_]", next if ($_ =~ /$junk/i) ;
    $a = "$a $_";
  }
  $a ;
}

sub DelArry { # Delete item, return new arry.
  $junk = shift (@_);
  @TMP = () ;
  for (@_) {
    next if ($_ =~ /$junk/i) ;
    push (@TMP,$_);
  }
  @TMP ;
}


Hope this is a starting point.

\Ruben.

-- 
        Ove Ruben R Olsen a Gnarfer and VI user. EMAIL: ruben@uib.no. 
     Maintaining the EX/VI-archive and a couple of the Comp.Editors FAQs.
    People that are ignorant tend to live a frustrated life, at least when 
     it comes to editing - But I do belive this is a general rule in life
From: lwall@netlabs.com (Larry Wall)
Newsgroups: comp.lang.perl
Subject: Re: $^T behaves differently in an undump'ed script
Date: 14 Oct 92 17:56:41 GMT
Organization: NetLabs, Inc.

In article <mcook.718983823@fendahl.dev.cdx.mot.com> mcook@fendahl.dev.cdx.mot.com (Michael Cook) writes:
: I have a script that uses (er, used) $^T.  After I undumped the script, it
: started behaving differently.  Here's an example:
: 
: 	$ cat foo
: 	#! /usr/local/bin/perl
: 	print "@ARGV,$^T\n";
: 	$
: 
: When I execute this as a normal Perl script, I get something like this:
: 
: 	$ ./foo `./foo;sleep 4`
: 	,718984046,718984051
: 	$
: 
: (The two numbers are different.)  After I've undumped it, I see this:
: 
: 	$ ./foo `./foo;sleep 4`
: 	,718984046,718984046
: 	$
: 
: (The two numbers are the same.)  Is there something I'm missing about how $^T
: is supposed to work?

No, it's a bug.  As a workaround, put $^T = time; as the first statement
executed by the undumped script.  It'll be fixed in Perl 5.

Larry
Newsgroups: comp.lang.perl