HDTenEightyP/NetNews huggingface dataset:
From: pas@anchor.unh.edu (Paul A Sand)
Subject: Re: bug in ctime.pl?
Organization: University of New Hampshire
Date: Wed, 22 Jul 1992 13:05:07 GMT

In article <BrryKL.Msx@rahul.net> dhesi@rahul.net (Rahul Dhesi) writes:
>In <1992Jul21.201121.15732@nic.unh.edu> pas@anchor.unh.edu (Paul A Sand) 
>wonders if ctime.pl should do $year += 1900 instead of
>
>>     $year += ($year < 70) ? 2000 : 1900;
>
>Both are identical at this time.  However, some time in the next
>century, when the 32-bit value of Unix time overflows and time begins
>running backwards, the two will give different results.  Whichever form
>gives a value closer to the truth will then be preferable; I believe
>the longer form will be the one.

Looking at the code in ctime.pl, I think you are (in effect) claiming
that the Perl gmtime()/localtime() functions are broken, or will break
sometime next century.  (More specifically: they will start returning
the wrong value for the 'years since 1900' element of their return
values. As far as I can tell, that's what they are supposed to do.) I
haven't tested that, but I don't think that's standard behavior for the
analogous C functions.

Perhaps I should have been more specific about what I regarded
as peculiar.  Here in lovely New Hampshire, this C program:

    #include <time.h>
    main()
    {
	 time_t t;
	 t = 0;
	 printf("%s", ctime(&t));
    }

prints:

    Wed Dec 31 19:00:00 1969

(i.e., midnight in Greenwich) But this:

    % perl -e 'require "ctime.pl"; print &ctime(0);'

prints:

    Wed Dec 31 19:00:00 2069

I think my proposed change would (at least) make the Perl and C
versions of ctime() behave alike.
-- 
-- Paul A. Sand           | I learned to put the [toilet] seat down...it
-- Univ. of New Hampshire | makes you look like a warm, caring, sensitive
-- pas@kepler.unh.edu     | human being. (Prof. R. Noble, from r.h.f.)
From: kent@manzi.unx.sas.com (Paul Kent)
Newsgroups: comp.lang.perl
Subject: Re: or puzzlement
Date: 23 Jul 92 18:08:35 GMT
Organization: SAS Institute Inc.
Originator: kent@manzi.unx.sas.com


In article <MERLYN.92Jul23070028@romulus.reed.edu>, merlyn@romulus.reed.edu (Randal L. Schwartz) writes:
>In article <BrtMFu.D0L@unx.sas.com> kent@manzi.unx.sas.com (Paul Kent) writes:
>
>>   i know i can do:
>>
>>   opendir(D,$f) || do
>>   { warn "no $f";
>>     return 1;
>>   };
>>
>>
>>   but that seems ugly. is there a better idiom for things like
>>
>>    dothis || warn_and_return
>>    dothis || warn_and_next
>>
>
>In the stuff you're doing, you could just go:
>
>	open(...) || warn " xxx ";
>
>because the return value will be the last value executed, so you'll
>get a "1" on a successful "open", and a 0 on a "warn" (presuming that
>warn does indeed return 0 always).  Larry will have to comment on
>whether to trust that behavior.
>
>If you need to return a 0 from the middle of a routine (using return),
>I've been known to do things like:
>
>	warn "oops!", return 0 unless open(...);
>
>*or*, if you can guarantee the 0 value of warn, you could even do this:
>
>	open(...) || return warn "bad news!"
>
>Sure, it looks weird, but it's perlish!
>

ok, thanks -- that comma trick works nicely for the return case, but....
i'm still searching for a useful idiom for the warn_and_next while looping

perhaps "next" is not as executable as "return". 
it doesnt behave similarly... (rbj would be proud!)



here are some attempts..

#!/usr/local/bin/perl

#
# riddle_me_this
#


$d1="/etc";                     # a directory
$d2="/not";                     # not a directory

#
# how to generalize that comma trick to "next" ...
#
# loop_or    is broke cuz it doesnt "next" for a non-directory
# loop_and   is broke cuz it doesnt print the warning for a non-directory
# loop_comma is broke cuz it doesnt print the warning for a non-directory
# loop_paren is broke cuz it doesnt print the warning for a non-directory
#
print STDERR "\n\n and now for loopy tricks\n\n";
for $d ($d1,$d2)
{
    opendir(D, $d) || warn "loop_or: no $d" || next;
    print STDERR "loop_or: $d must exist cuz we got this far\n"; 
}

for $d ($d1,$d2)
{
    opendir(D, $d) || warn "loop_and: no $d" && next;
    print STDERR "loop_and: $d must exist cuz we got this far\n"; 
}

for $d ($d1,$d2)
{
    opendir(D, $d) || warn "loop_comma: no $d", next;
    print STDERR "loop_comma: $d must exist cuz we got this far\n"; 
}

for $d ($d1,$d2)
{
    opendir(D, $d) || (warn "loop_comma2: no $d" && next);
    print STDERR "loop_paren: $d must exist cuz we got this far\n"; 
}



Cheers,
Paul.
-- 

Paul Kent (SQL r&d)                   " nothing ventured, nothing disclaimed "
kent@unx.sas.com         SAS Institute Inc, SAS Campus Dr, Cary NC 27513-2414.
From: jbence@julia.math.ucla.edu (James K. Bence)
Newsgroups: comp.lang.perl
Subject: Seemingly Small Feature
Date: 31 Jul 92 00:07:38 GMT
Distribution: na
Organization: UCLA Mathematics Department

I would like to be able to reset the iterator that each,keys,values use
when I want, rather than being forced to go thru the whole array.  Is
this an unreasonable feature?

James Bence
Programmer/Analyst/Grad Student
Univ. of Calif, Los Angeles
Dept. of Mathematics
jbence@math.ucla.edu
From: buzz@toxicavenger.bear.com (Buzz Moschetti)
Newsgroups: comp.lang.perl
Subject: Re: Process question...
Date: 23 Jul 92 00:59:08 GMT
	<BUZZ.92Jul22205552@toxicavenger.bear.com>
Organization: Bear, Stearns & Co. Inc.
In-reply-to: buzz@toxicavenger.bear.com's message of 23 Jul 92 00:55:52 GMT

In article <BUZZ.92Jul22205552@toxicavenger.bear.com> buzz@toxicavenger.bear.com (Buzz Moschetti) writes:

   Check out Randall's chat2.pl in your perl's library distribution.  It
   uses pty's, but you can probably hack to suit your needs.

Better yet -- Tom's open2.pl.  This may be exactly what you're looking for.
From: vspicer@ccu.umanitoba.ca
Newsgroups: comp.lang.perl
Subject: single key input in MSDOS perl?
Date: 31 Jul 92 13:07:36 GMT
Organization: University of Manitoba, Winnipeg, Manitoba, Canada

hello. forgive if this is in a FAQ or has been beaten to death previously:

i need some way in MSDOS PERL to get a single keystroke from STDIN. it
would be similar to BASIC's INKEY$ function or Turbo C's getch()
function. 

i have tried re-mapping the keyboard to put "\n"'s at the end of everything,
but it's a pain. i've also tried the 
	$key=`keyin.exe`
approach, but it's rather slow and seems to confuse my hard drive cache
so screen output gets stopped at odd times. 

is there some sane way of doing this?

thanks in advance
	vic spicer
From: buzz@toxicavenger.bear.com (Buzz Moschetti)
Newsgroups: comp.lang.perl
Subject: Re: X thing to get string?
Date: 23 Jul 92 00:49:05 GMT
Organization: Bear, Stearns & Co. Inc.
In-reply-to: mcmahan@cs.unca.edu's message of 22 Jul 92 22:11:46 GMT

In article <1992Jul22.221146.22436@cs.unca.edu> mcmahan@cs.unca.edu (Scott McMahan -- Genesis mailing list owner) writes:

   I like the brute-force method, and the path-of-least-resistance.
   xterm -e is very much both ;)

   Any chance of getting

   Motifperl

   with Motif integrated into perl the same way curses & stuff is?

   That would be *the* best windows programming environment ever
   designed. :)

Take a look at tcl -- more info in comp.lang.tcl.  The tk toolkit coupled
with the BYO interface builder (implemented in tcl) provides an environment
with the same general "feel" as perl.  There are pros and cons to both
languages, of course.
From: ejo@kaja.gi.alaska.edu (Eric J. Olson)
Newsgroups: comp.lang.perl
Subject: Re: Pgnews 2.0 (Larry Wall Please Look)
Date: 27 Jul 92 20:58:19 GMT
Distribution: na
Organization: Citizens for Boysenberry Jam Fans

Since you added a useless $VERSION thing, here's a quick patch to spit
it out.  That wasn't so hard, was it?

********
7c7
< #**    SYNOPSIS | pgnews [-h hostname]
---
> #**    SYNOPSIS | pgnews [-V] [-h hostname]
21a22
> #**		| Eric J. Olson       07-27-92  -V flag (sheesh)
73a75,76
> #**		|
> #**             | 07-27-92: (ejo) made -V spit out version (sheesh)
101a105,110
> 	}
> 
> 	if ($arg =~ /-.*V/)
> 	{
> 		printf("pgnews version $VERSION\n");
> 		exit 0;
From: doi@jrd.dec.com (Hitoshi Doi)
Newsgroups: comp.lang.perl
Subject: Re: dosperl-4.035 problems
Keywords: dos perl-4.035 broken?
Date: 28 Jul 92 23:17:22 GMT
Organization: DEC Japan Research and Development Center

In article <3772@blue.cis.pitt.edu.UUCP>, rm55+@pitt.edu (Rudolph T Maceyko) writes:
# Has anyone had trouble with dosperl-4.035 (the DJGPP one found in
# ftp.umanitoba.ca:/pub/msdos/perl/perl386.zoo)?

I think there must have been some bugs in DJGPP's library functions.
(I'm using 1.05 because 1.06 and 1.07 do not run on my machine..)

When I eliminated the HAS_REWINDDIR, HAS_SEEKDIR, and HAS_TELLDIR
from config.h, most of the problems were solved.
I still kept HAS_READDIR.  (Because I need it:-)

I will upload the new version in a couple days.
--
Hitoshi Doi, International Open Systems Engineering        doi@jrd.dec.com
Japan Research and Development Center               decwrl!jrd.dec.com!doi
Digital Equipment Corporation Japan          [from Japan: doi@dec-j.co.jp]
Newsgroups: comp.lang.perl
From: Tom Christiansen <tchrist@convex.COM>
Subject: Re: CHR$() in Perl
Originator: tchrist@pixel.convex.com
Reply-To: tchrist@convex.COM (Tom Christiansen)
Organization: CONVEX Realtime Development, Colorado Springs, CO
Date: Thu, 30 Jul 1992 00:08:24 GMT
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 tswenson@de3a1066a.osd.mil (Tim Swenson):
:This may be simple, but I've looked through
:the Camel book and can't find a thing on this.
:
:I'm looking for the opposite of the ord function.
:(The same as CHR$() in Basic).  Given a number I
:need to print the ASCII value of that number.
:In other works, if X=65 I want to print an A.
:
:I need to know how to do this in Perl.

Use sprintf with %c or pack with C.

--tom
-- 
    Tom Christiansen      tchrist@convex.com      convex!tchrist
And don't tell me there isn't one bit of difference between null and space,
because that's exactly how much difference there is.  :-)
        --Larry Wall in <10209@jpl-devvax.JPL.NASA.GOV>
Newsgroups: comp.lang.perl
From: rse8135@dewie.tamu.edu (R.S. Etheredge)
Subject: getting started
Organization: Texas A&M University, College Station
Date: Wed, 22 Jul 1992 21:23:50 GMT

Howdee,
I am a brand new introductee to the wilds of perl. I have purchased an  
O'Rielly & Associates book entitled Programming perl, by Larry Wall and  
Randall Schwartz. I have just started reading the Getting Started chapter.  
Anybody have experiences to help accellerate the learning curve?
Have a happy day...
Rusty Etheredge
From: tchrist@convex.COM (Tom Christiansen)
Newsgroups: comp.lang.perl
Subject: Re: newsclip vs. latest version
Date: 24 Jul 92 16:17:00 GMT
Reply-To: tchrist@convex.COM (Tom Christiansen)
Organization: CONVEX Realtime Development, 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 mwm@fernwood.mpk.ca.us (Mike Meyer):
:I'm having trouble convincing newsclip to run. It is calling scanner
:as articles come in, but appears never to leave them. I suspect the
:problem may be that this perl is 4.0.1.4, at patch level 10.
:
:Could someone confirm that newsclip requires features/bug fixes that
:aren't in that patch level?

&NGSKIP is using eval{}, which didn't occur until the next patch
after what you have.  But you should have gotten an error message.
Hm...   I'd disable the backgrounding and run it under the debugger
with trace mode on.

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

    Just don't create a file called -rf.  :-)
            --Larry Wall in <11393@jpl-devvax.JPL.NASA.GOV>
From: karrer@bernina.ethz.ch (Andreas Karrer)
Subject: Re: Perl 4.035 and CONVEX
Organization: Swiss Federal Institute of Technology (ETH), Zurich, CH
Date: Sat, 25 Jul 1992 21:16:43 GMT

Tom Christiansen <tchrist@convex.COM> writes:

>From the keyboard of rafapa@obelix.cica.es:
>:
>:    I know that CONVEX support Perl but my system is still using the
>:3.18 version of Perl (9.1 ConvexOS). I am trying to update to Perl
>:4.035 but the C compiler complaint in the routine doio.c at lines
>:2194 and 2281 because a type redefinition problem.

>Try compiling in good ole -pcc mode instead of ANSI+POSIX+Convex mode.

... and set "groupstype='gid_t'" in config.sh.

 - Andi

+-----------
  Andi Karrer, Communication Systems, ETH Zuerich, Switzerland
  karrer@bernina.ethz.ch    - Objects in mirror are closer than they appear
Newsgroups: comp.lang.perl,comp.sys.sequent
From: ejk@ux2.cso.uiuc.edu (Ed Kubaitis - CCSO)
Subject: ptx accept() botch & perl 4.035
Organization: University of Illinois - Urbana
Date: Tue, 28 Jul 1992 12:30:55 GMT

Perl4.035 accept() fails with "Invalid argument" on Sequent ptx V1.3.1.
It seems ptx accept() thinks the addrlen argument provided by perl
is, um, too *large*.

The attached doio.c hack allows accept to work in the AF_INET family. 
AF_UNIX is currently not an issue as unix domain sockets don't work on 
ptx anyway. 

----------------------------------
Ed Kubaitis (ejk@ux2.cso.uiuc.edu)
Computing & Communications Services Office - University of Illinois, Urbana
==============================================================================
*** doio.c-	Fri Jun 12 00:46:24 1992
--- doio.c	Mon Jul 27 13:31:47 1992
***************
*** 1524,1530 ****
--- 1524,1534 ----
  {
      register STIO *nstio;
      register STIO *gstio;
+ #ifdef _SEQUENT_
+     int len = sizeof(struct sockaddr);
+ #else
      int len = sizeof buf;
+ #endif
      int fd;
  
      if (!nstab)
From: lwall@netlabs.com (Larry Wall)
Newsgroups: comp.lang.perl
Subject: Re: Pgnews 2.0 (Larry Wall Please Look)
Date: 28 Jul 92 17:12:30 GMT
Distribution: na
Organization: NetLabs, Inc.

In article <2844@wrdis01.af.mil> mcgough@wrdis01.af.mil (Jeffrey B. McGough) writes:
: Exception:
: While actually slurping up the article the select does not work???
: Barry Hassler seems to think that at that point PERL has
: already sucked the whole thing into its own memory buffers...
: Leaving nothing for the select to work on.
: Care to comment Larry???

Barry is correct.  Use recv() or sysread() to avoid stdio buffers.

Larry
Newsgroups: comp.lang.perl
From: bcs@atlantis.cis.ufl.edu (Bradley C. Spatz)
Subject: open and O_EXCL.
Keywords: open flags mutex
Reply-To: bcs@atlantis.cis.ufl.edu (Bradley C. Spatz)
Organization: UF Computer Science Dept.
Date: Fri, 31 Jul 92 19:22:24 GMT

Hi.

How can I specify the flags (like O_EXCL) to open(2) with Perl's open?

I want to open a file like vipw does with /etc/passwd, such that my Perl
script and vipw will not be able to access the file simultaneously.

The way vipw does this is by:

	fd = open("/etc/ptmp", O_WRONLY|O_CREAT|O_EXCL, 0644);
	if (fd <0) {
	   complain(); exit(1)
	}

If opened ok, then the fd is converted to a fp and /etc/passwd is copied to
/etc/ptmp.  The latter serves as a lock.

I want to similarly enforce mutual exclusion on this file.  However, Perl's
open doesn't seem to allow the flags (O_WRONLY|O_CREAT|O_EXCL) to be specified.  Can I specify these flags these flags in Perl?

Any suggestions?  I'll post a summary.
-- 
Bradley C. Spatz                                    Bytes:        bcs@ufl.edu
Computer & Information Sciences                     Bits:  uunet!uflorida!bcs
College of Engineering                              Waves:       904/392-1499
University of Florida           "School IS hell." -- Matt Groening
Newsgroups: comp.lang.perl
From: mike@meiko.com (Mike Stok)
Subject: Re: # of files in directory
Keywords: Files, Perl, Directory, ls
Organization: Meiko Scientific Corp.
Date: Fri, 24 Jul 1992 16:44:03 GMT

In article <1992Jul24.153838.29143@magnus.acs.ohio-state.edu> bobd@magnus.acs.ohio-state.edu (Bob DeBula) writes:
>In article <1992Jul23.225715.21531@news.eng.convex.com> tchrist@convex.COM (Tom Christiansen) writes:
>>From the keyboard of bobd@magnus.acs.ohio-state.edu (Bob DeBula):
>>:In article <1992Jul23.201539.4416@news.eng.convex.com> tchrist@convex.COM (Tom Christiansen) writes:
>>
>>Sigh, pretty as it sounds, I lament to inform you that penultimate doesn't
>>mean more than ultimate.  Ultimate often means last in modern dialects of
>>Latin.  Penultimate means second to the last, and antepenultimate means
>>third to the last.
>>
>
>In common usage, I have always heard "penultimate"  utilized 
>to mean something like "super ultimate" or "ultimate plus". Obviously
>this was incorrect given Tom's knowledge of Latin. How in the world can
>Tom be a PERL wizard of penultimate magnitude (we`ll sandwich Larry
>in as the "Ultimate" using Tom's definition) and still know
>modern derivational Latin? Does the man sleep? What do these folks
>do in their spare time one wonders (indeed, how could they *possibly*
>have any spare time)? :-) :-) :-)

in general doesn't pen as a prefix mean almost (from paene meaning
almost in latin), hence penumbra, peninsular, penultimate etc.  A
smattering of greek helps avoid asking questions like "What's a
tagon?" :-)

Does perl attract people with more 'rounded' interests than usual
programming languages do?  I certainly revel in the difficulty
programs have parsing perl while people like Larry, Tom, and Randal 
can just glance at a fragment of perl and tell me what I thought it
should do, what it really does, and whether I was in a good mood when I
wrote it.

Mike
--
The "usual disclaimers" apply.    | ... many were weak and confused, succumbing
Mike Stok                         | to drink or drugs whenever possible ...
mike@meiko.com                    |
Meiko tel: (617) 890 7676         |                          Hunter S. Thompson
From: mch@sqwest.wimsey.bc.ca (Mark C. Henderson)
Newsgroups: comp.lang.perl
Subject: Re: stat.pl query
Keywords: PERL
Date: 28 Jul 92 22:21:52 GMT
Organization: SoftQuad Inc., Surrey, B.C. CANADA

In article <1992Jul28.171317.22804@rdg.dec.com> stuart@ds3100.new.dec.com (Stuart Broderick) writes:
>Probably a stupid question, but....
>
>The following script is using stat.pl to determine the mode of a file
>using stat.pl. 
>
>#! /usr/local/bin/perl
>require 'stat.pl';
>do Stat('./test');
>print $st_mode,"\t",$st_uid,"\t",$st_gid,"\n";
>
>When this runs, I get 
>
>st_mode st_uid  st_gid
>33224   1103    100
>
>I expected it to give 0710. 
>
>Can anyone tell me what I've done wrong ? I'm looking for a numeric
>representation of 
>the permissions field.
>
>Stuart.

33224 (decimal) = 100710 (octal)

Mark
-- 
Mark Henderson, SoftQuad Inc, 108-10070 King George Hwy, Surrey, B.C. V3T 2W4
Internet:   mch@west.sq.com, mch@sqwest.wimsey.bc.ca
UUCP: {van-bc,sq}!sqwest!mch Telephone: +1 604 585 8394  Fax: +1 604 585 1926
Newsgroups: comp.lang.perl
From: dhesi@rahul.net (Rahul Dhesi)
Subject: Re: bug in ctime.pl?
Organization: a2i network
Date: Wed, 22 Jul 1992 05:14:44 GMT

In <1992Jul21.201121.15732@nic.unh.edu> pas@anchor.unh.edu (Paul A Sand) 
wonders if ctime.pl should do $year += 1900 instead of

>     $year += ($year < 70) ? 2000 : 1900;

Both are identical at this time.  However, some time in the next
century, when the 32-bit value of Unix time overflows and time begins
running backwards, the two will give different results.  Whichever form
gives a value closer to the truth will then be preferable; I believe
the longer form will be the one.

(Aside:  The above is somewhat analogous to preferring a clock that
doesn't run to one that runs slowly, because the one that doesn't run
shows the correct time twice a day.  I was considering using ntp, but I
said, what the heck!  I'll just stop my system clock altogether and do
much better.  Then I realized that what makes this work is counting
modulo 12.  So my next plan is to build a 3.584962501 bit counter and
use that for my clock.)
--
Rahul Dhesi <dhesi@rahul.net>
also:  dhesi@cirrus.com
Newsgroups: comp.lang.perl
From: asherman@laser.fmrco.com (Aaron Sherman)
Subject: Re: *Another* embarrassingly simple question
Reply-To: asherman@fmrco.COM
Organization: I-Kinetics, 19 Bishop-Allen Dr., Cambridge, MA
Date: Wed, 22 Jul 1992 22:26:30 GMT


>>>>> sondeen@isi.edu (Jeff Sondeen) said:

sondeen> How can I print a number as binary? 

# Int to binary string. Pass a number and the number of bits that
# you want.
sub itobs
{
	local($num,$bits) = @_;
	local($i,$binstr);

	for($i=0;$i<$bits;$i++)
	{
		substr($binstr,0,0) = ($n & 1);
		$num >>= 1;
	}
	$binstr;
}



			-AJS

--
--------
Disclaimer: I am solely responsible for the content of this message.
The views expressed here may not be the views of I-Kinetics, Fidelity,
any of the Fidelity-owned corporations or my mother.
Newsgroups: comp.lang.perl
From: tanaka@til.til.com (Yokichi Tanaka)
Subject: Re: getting started
Organization: Togai InfraLogic, Inc.
Date: Thu, 23 Jul 1992 23:40:08 GMT

In article (R.S. Etheredge) writes: 
|> Anybody have experiences to help accellerate the learning
|> curve?

Rob Kolstad's set of slides from the Software Development '90
convention in Oakland (2/9/1990) is a good introduction.

	PERL: A System Administration Language
        Rob Kolstad, Ph.D.
	Rocky Mountain Technology Center
	Sun Microsystems, Inc.
	719-594-6018
	kolstad@prisma.com
	uunet!prisma!kolstad

Phone # and e-mail address may be obsolete.

-- 
Yokichi (Yoke) Tanaka      Togai InfraLogic, Inc.    "fuzzy"
tanaka@til.com             Irvine, California, USA
uunet!til!tanaka           714-975-8522
"The more you drive, the less intelligent you are."
From: lwall@netlabs.com (Larry Wall)
Newsgroups: comp.lang.perl
Subject: Re: h2ph won't convert socket.h...
Date: 23 Jul 92 21:43:41 GMT
Article-I.D.: netlabs.1992Jul23.214341.10319
Organization: NetLabs, Inc.

In article <1992Jul21.165307.19032@rs6000.cmp.ilstu.edu> dbeedle@rs6000.cmp.ilstu.edu (Dave Beedle) writes:
: 
:    Hi all.  I'm a rank amature when it comes to perl but I went ahead and 
: updated the perl on our rs6000 running AIX 3.1.5.  It did have socket.ph at 
: one time but now does not.  h2ph will not convert it for some reason here is 
: what I get...
: 
: /usr/include/sys $ h2ph socket.h
: socket.h -> socket.ph
: Can't open socket.h: No such file or directory
: /usr/include/sys $ di so*
: -r--r--r--    1 bin           10B  May 19 1990   Jul 21 11:45 socket.h
: 
:    What's going on?  Thanks for any hints!

Try h2ph sys/socket.h.  I believe h2ph cd's to /usr/include.

Larry
Newsgroups: comp.lang.perl
From: mwm@fernwood.mpk.ca.us (Mike Meyer)
Subject: newsclip vs. latest version
Organization: Anterior Technology, Menlo Park, CA, USA
Date: Thu, 23 Jul 1992 23:31:19 GMT

I'm having trouble convincing newsclip to run. It is calling scanner
as articles come in, but appears never to leave them. I suspect the
problem may be that this perl is 4.0.1.4, at patch level 10.

Could someone confirm that newsclip requires features/bug fixes that
aren't in that patch level?

	Thanx,
	<mike
From: wjb@moscom.UUCP (Bill de Beaubien)
Newsgroups: comp.lang.perl
Subject: Re: Commercial support for perl?
Date: 23 Jul 92 13:22:41 GMT
Organization: Moscom Corp., Pittsford, NY
X-Newsreader: Tin 1.1 PL4

wierda@ltb.ltb.bso.nl (Gerben Wierda) writes:
: If I sell support for perl etc and use the net for help if I do not know the
: answer am I just acting as a combined "interested programmer with net access"
: for those companies or am I misusing the net for personal gain?

Isn't that what most of the people who ask questions on the various supportish
groups doing?  If people are using a tool where they work and ask for support,
they're doing so to both the benefit of their workplace and their own (enhancing
their value to their employer). 

Bill
-- 
"Bless me, Father; I ate a lizard."
"Was it an abstinence day, and was it artificially prepared?"
-------------------------------------------------------------
Bill de Beaubien / wjb@moscom.com 
Newsgroups: comp.lang.perl