HDTenEightyP/NetNews huggingface dataset:
From: flee@cs.psu.edu (Felix Lee)
Subject: Re: or puzzlement
Date: Mon, 27 Jul 1992 22:42:24 GMT

>    opendir(D,$f) || warn("no dir $f") && return 1;
>    opendir(D,$f) || do {warn "no dir $f"; return 1};
>    opendir(D,$f) || (warn("no dir $f"), return 1);
>    opendir(D,$f) || return warn "no dir $f";

Drowning in a surfeit of choices.

Code written like this:
	if (! opendir(D, $f)) {
		warn "$0: Can't open directory $f: $!\n";
		return 1;
	}
is perfectly understandable, although not particularly compact.

Lately, I've been writing code like:
	&opendir(*D, $f) || return 'fail';

where &opendir is something like
	sub opendir {
		local (*DIR, $name) = @_;
		if (! opendir(DIR, $name)) {
			warn "$0: Can't open directory $name: $!\n";
			return 0;
		}
		return 1;
	}

Packaging the error message with the operation improves the
consistency and the usefulness of the diagnostics.

Perhaps some general exception handling convention, using eval/die,
would be better, but I haven't felt my way around eval/die yet.

	eval { &opendir(*D, $f) } || die "$@";

	sub opendir {
		local (*DIR, $name) = @_;
		opendir(DIR, $name) ||
			die "$0: Can't open directory $name: $!\n";
	}
--
From: tchrist@convex.COM (Tom Christiansen)
Newsgroups: comp.lang.perl
Subject: Re: Perl 4.035 and CONVEX
Date: 24 Jul 92 16:08:48 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 rafapa@obelix.cica.es:
:|X-Envelope-to: perl-users@uvaarpa.virginia.edu
:
:
:    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.
:    Could someone give me a Convex hints file? I am using all the 
:defaults options in Configure.

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

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

    A successful tool is one that was used to do something undreamed of by
    its author.  -- S. C. Johnson
Newsgroups: comp.lang.perl
From: bobd@magnus.acs.ohio-state.edu (Bob DeBula)
Subject: Re: # of files in directory
Keywords: Files, Perl, Directory, ls
Organization: The Ohio State University
Date: Thu, 23 Jul 1992 21:12:49 GMT

In article <1992Jul23.201539.4416@news.eng.convex.com> tchrist@convex.COM (Tom Christiansen) writes:
>From the keyboard of bobd@magnus.acs.ohio-state.edu (Bob DeBula):
>:To reduce it still further (this *is* PERL after all):
>:
>:opendir (FILE, "/usr/bin");
>:print "There are ", scalar(grep (!/^\./, readdir (FILE))), " files!\n";
>:
>:Now if I could just figure out how to embed the open in the print
>:statement.....
>
>print "There are ", scalar grep(1,`ls /usr/bin/`), " files in /usr/bin.\n";
				   ^^^^^^^^^^^^^^
				   But, that would 
				   be *cheating* :-)
				

Actually, how does this compare in efficiency to the "opendir"
method? (My timings would seem to indicate that the "opendir" form
is slightly (almost infintesimally) faster on my Sun 3/80).

While the goal is to get it down to one line, you must color
in the lines (stay within PERL that is :-). So, can you do it
in one line *without* using any semi-colons or backquoting
to use external utilities? Think of it as one of those penultimately
pointless PERL challenges which crop up from time to time :-)

Hmmm, "Penultimately Pointless PERL Programming Problem" sounds
like some sort of invitational named by Robin Leach, doesn't it? 
What would we give for a prize to the winner of the 1st PPPPP 
Invitational? Maybe we could get Larry to donate some "suitable 
for framing" original napkins with PERL patches scribbled on them 
(complete with obligatory coffee stains)?


:-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-)

-- 
==========================================================================
              Disclaimer: These are my views, not the U's

        "If it's in the paper it must be true!" --- D. Doright 
Newsgroups: comp.lang.perl
From: mike@meiko.com (Mike Stok)
Subject: Re: Empty IF-TRUE-EXPR in ?:
Organization: Meiko Scientific Corp.
Distribution: usa
Date: Wed, 22 Jul 1992 10:57:57 GMT

In article <BRENDAN.92Jul21221748@eff.org> brendan@eff.org writes:
>
>I was thinking, it'd be nice to be able to have
>
>	$foo ? $foo : 4;
>
>be also available as
>
>	$foo ? : 4;
>
>to avoid re-parsing the second case of $foo.  (Where $foo could be any
>arbitrarily large expression.)

won't something like $bar = $foo || 4; do the trick?

try ('' and 0 both evaluate to false):

foreach $foo ('', ' ', 0, 99, 'gibberish')
{
  $bar = $foo || 4;
  print "foo = <$foo>, bar = <$bar>\n";
}


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
Newsgroups: comp.lang.perl
From: mcmahan@cs.unca.edu (Scott McMahan -- Genesis mailing list owner)
Subject: chat2 -- ???
Organization: University of North Carolina at Asheville
X-Newsreader: Tin 1.1 PL3
Date: Thu, 23 Jul 1992 23:47:23 GMT

All the sites I've found with chat2.pl don't have man pages...

Do any docs on this exist? The FAQ sure doesn't mention any...
(or even how to get it :))

I'd like to use it as a high level interface to sockets, a way to learn
about them without going into the gory details of  the library functions
until I am more comfortable with them...

Scott
From: olsenc@milton.u.washington.edu (Clint Olsen)
Newsgroups: comp.lang.perl
Subject: Sorry if your replies bounced!
Date: 28 Jul 92 07:31:02 GMT
Organization: University of Washington, Seattle


I was formerly known as beaker@milton.u.washington.edu:

I posted a question trying to verify that I was to
remove the -I/usr/ucbinclude from ccflags and cppflags
when compiling perl 4.035 w/ gcc 2.2.2 on SunOS 4.1.2.

They entire test failed on cpp with a shell error:

sh: cppstdin: no such file or directory.

Just making sure that this is OK.

Thanks.

Clint Olsen
olsenc@maxwell.ee.washington.edu
Newsgroups: comp.lang.perl
From: sherman@unx.sas.com (Chris Sherman)
Subject: Problem with order of precedence, maybe
Date: Wed, 29 Jul 1992 22:50:19 GMT
Organization: SAS Institute Inc.

Consider the following code:

-----------------------------------------------
#!/usr/local/bin/perl
if (1 & 0 != 0) { print "1\n";}
if (0 & 1 != 0) { print "2\n";}
if (1 & 0 != 1) { print "3\n";}
if (0 & 1 != 1) { print "4\n";}

if ((1 & 0) != 0) { print "and 1\n";}
if ((0 & 1) != 0) { print "and 2\n";}
if ((1 & 0) != 1) { print "and 3\n";}
if ((0 & 1) != 1) { print "and 4\n";}
-----------------------------------------------

Besides the output, both sets of statements are similar, except for the
()'s on the bottom set. 

According to the perl book, '&' comes before '!=', so theoretically, what
numbers between 1-4 get hit should result in the same numbers getting hit
on the second set of statements.

The result of the routine above is:

3
and 3
and 4
 
So or order of precedence is not being perserved, or I have misinterpreted
the book, or something else really odd is going on.

I'm using perl 4.0 patchlevel 35 on HP/UX, all tests passed with colors.

Please help!

Thanx!!!

ps.  This error comes from the program posted recently called bcast by 
Ed Mooring (mooring@tymix.tymnet.com).  In it, he checks for compliant
hostnames using the following section.

# change inet address to match your site
if ($inetaddr != 0x7f000001 && $inetaddr & 0xffff0000 != 0x83920000)
{
    #
    # not a host we like, bounce it.
    #
    close ($newsock);
    if ($verbose)
    {
	$hostname = gethostbyaddr($addr, 2);
	printf "Connection refused from $hostname %x %d\n", $inetaddr, $port;
    }
}


Well, the results were wrong, it accepted some which it shouldn't have, 
and reject others which it should have accepted.  So I wrote the test program
above and saw that he also assumed '&' had higher precedence than '!='.

-- 
     ____/     /     /     __  /    _  _/    ____/
    /         /     /     /   /      /     /          Chris Sherman
   /         ___   /        _/      /          /
 _____/   __/   __/   __/ _\    _____/   _____/           sherman@unx.sas.com
Newsgroups: comp.lang.perl
From: blu@uunet.uunet!mercomp (Brian Utterback)
Subject: Problem compiling perl@35 on SunOS 4.0.3
Organization: Mercury Computer Systems
Date: Tue, 28 Jul 1992 15:40:18 GMT

I am having a problem compiling perl under sun os 4.0.3.  When
the link comes, I am missing symbol h_errno.  This symbol is used
by the resolver library to give extended error codes, but we are not
using the resolver.  We are using NIS (yp) however, so I would like perl
to find the passwd and host entries from the maps.  So, what do I do?
I can't upgrade the OS for various reasons yet.

Brian Utterback
Mercury Computer Systems
blu@mercomp.mc.com
uunet!mercomp!blu
From: lwall@netlabs.com (Larry Wall)
Newsgroups: comp.lang.perl
Subject: Re: Capitalizing words?
Date: 24 Jul 92 18:56:01 GMT
Organization: NetLabs, Inc.

In article <1992Jul22.175327.15371@news.Hawaii.Edu> bob@kahala.soest.hawaii.edu (Bob Cunningham) writes:
: Surely there must be a nice little perl idiom to capitalize
: lists of words, but I just can't seem to discover it.
: 
: How do you do it?
: -- 
: Bob Cunningham
: bob@soest.hawaii.edu
: School of Ocean & Earth Science & Technology, University of Hawaii

If you have a somewhat recent version, you can say something like

	foreach $word (@words) {
	    $word = "\u\L$word";
	}

That forces the first letter uppercase and the rest lower case.  Just
use \u to force only the first character.  Use \U to force all to upper case.

Alternatively, if you're stuck with an old version:

    foreach $word (@words) {
	substr($word,0,1) =~ tr/a-z/A-Z/;	# first letter uppercase
	substr($word,1) =~ tr/A-Z/a-z/;		# the rest lower
    }

Larry
Newsgroups: comp.lang.perl
From: sondeen@isi.edu (Jeff Sondeen)
Newsgroups: comp.lang.perl
Subject: *Another* embarrassingly simple question
Date: 21 Jul 92 16:03:56 GMT
Organization: USC-Information Sciences Institute

How can I print a number as binary?  What I want is
	$num = 5;
	print "%4b", $num;	# but it doesn't give me 0101
		^^^
		wishfull thinking


By the way, I found some type of problem tring to use vec's.

	#! /local/bin/perl
	
	$num = 5;
	for $bits (1..20) {
		vec($numv, 0, $bits) = $num;
		@num = reverse(split(//,unpack("b$bits", $numv)));
		$line = join('',@num);
		print "$line\n";
	}

gives:

1
01
101
0101
00101
000101
0000101
00000101
000000101
0000000101
00000000101
000000000101
0000000000101
00000000000101
000000000000101
0000010100000000	## what happend here????
00000010100000000
000000010100000000
0000000010100000000
00000000010100000000

This is perl, version 4.0

$RCSfile: perl.c,v $$Revision: 4.0.1.6 $$Date: 91/11/11 16:38:45 $
Patch level: 19

Any help would be appreciated on either problem.  Thanks,
--
/jeff.  "A sloppy, ungroomed appearance or inappropriate dress may be of
great diagnostic significance, suggesting intellectual subnormality, a
serious psychiatric disturbance, or a psychopathic disregard for
social conventions."  -- Robert Gregory, Adult Intellectual Assessment
From: eburk@bugs.sfsu.edu (Eli Burk)
Newsgroups: comp.lang.perl
Subject: flags(a.k.a. switches, options)
Keywords: flags, fields, option
Date: 22 Jul 92 23:15:15 GMT
Reply-To: eburk@bugs.sfsu.edu (Eli Burk)

I seem to be at a loss as how to make my perl programs read flags 
(a.k.a switches, options).

What is a good way? I admit that I have the Nutshell Perl book, 
but I can't seem to find a simple example. I am just beginning
to use perl and I find most of the examples containing switches
confusing.

** email please **
--
:----------- eli burk
:----------- p.o. box 22135
:----------- san francisco, ca 94122
eburk@futon.sfsu.edu -or- eburk@sutro.sfsu.edu -or-  
eburk@sfsuvax1.sfsu.edu
From: newlin@lucky.ecn.purdue.edu (Johnny N.)
Newsgroups: comp.lang.perl
Subject: Re: Pipe, et al, what am I doing wrong?
Keywords: pipe, fork
Date: 27 Jul 92 19:30:08 GMT
Organization: Purdue University Engineering Computer Network

weingart@inf.ethz.ch (Tobias Weingartner) writes:

>Here is a small script, that seems to hang.  What am I doing
>wrong?  A ps shows that the child is waiting for the parent
>to `wait` on it.  Also, the parent seems to hang because it
>does not get EOF.

>Can anyone give me a working example of this?

  sure.

--------- original script deleted -------------
try this:

#!/usr/local/bin/perl

@data= ();

die "can't fork: $!" unless defined ($pid=open (CHILD, "-|"));
if ($pid == 0) {
        exec ('/bin/cat/', '/etc/passwd');
}
else {
        open (STDIN, "<&CHILD");
        while (<STDIN>) {
                push (@data, $_);
                print ".";
        }
        print "\nLines: $#data\n";
}


-John
Newsgroups: comp.lang.perl
From: andy@homebase.vistachrome.com (Andy Finkenstadt)
Subject: two-way associate arrays
Reply-To: andy@homebase.vistachrome.com
Organization: Vista-Chrome Incorporated
Distribution: usa
Date: Wed, 29 Jul 1992 16:14:01 GMT

I was wondering if there was a way to generate a 2-dimensional
array in Perl.  For example:

   news["fromsite"]["tosite"]++

To track news traffic through.
-- 
Andrew Finkenstadt       | Vista-Chrome, Inc.   |    NIC Handle: AF136
GEnie Unix Sysop/Manager | The Printing House   |   ...!uunet!rde!andy
+1 904 222 2639 home     | 1600 Capital Cir SW  |  andy@GEnie.geis.com
+1 904 575 0189 work     | Tallahassee FL 32310 | andy@vistachrome.com
Newsgroups: comp.lang.perl
From: kent@manzi.unx.sas.com (Paul Kent)
Subject: or puzzlement
Originator: kent@manzi.unx.sas.com
Date: Thu, 23 Jul 1992 02:47:54 GMT
Organization: SAS Institute Inc.



hi,

in some sub xx, i currently do the moral equivalent of:

sub xx
{
  opendir(D,$f) || warn "no dir $f" || return 1;
}

which to my app is a non-fatal warning -- typically my outer loop
will do 

  &sub() && next;




is it guarenteed that warn <stuff> will evaluate
to 0/false forcing the next thing in the or-sequence to be
evaluated, or am i just getting "lucky" (warn in the camel
book doesnt describe its result -- it may be grandfathered
elsewhere....)


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



thanks for any input on good perlstyle you might send...
paul.
-- 

Paul Kent (SQL r&d)                   " nothing ventured, nothing disclaimed "
kent@unx.sas.com         SAS Institute Inc, SAS Campus Dr, Cary NC 27513-2414.
Newsgroups: comp.lang.perl
From: leeh7@fel.tno.nl (E.w.a. van Leeuwen)
Subject: oraperl
Organization: TNO Physics and Electronics Laboratory
Date: Tue, 21 Jul 92 07:05:36 GMT

Where can I find it?

Thanks in advance.



						Regards,
						
						Ed.

						
===============================================================================
Ed van Leeuwen                        |  Ed W.A. van Leeuwen
FEL-TNO                               |  TNO Physics and Electronics Laboratory
's-Gravenhage                         |  The Hague, the Netherlands
-------------------------------------------------------------------------------
Ed.van.Leeuwen@tnofel.fel.tno.nl      |  WARNING: Do not feed the lions
===============================================================================
From: merlyn@romulus.reed.edu (Randal L. Schwartz)
Newsgroups: comp.lang.perl
Subject: Re: or puzzlement
Date: 23 Jul 92 14:00:31 GMT
Article-I.D.: romulus.MERLYN.92Jul23070028
Organization: Reed College

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!

(It's funny, but while I was constructing my JAPH, I discovered that
*my* warn is returning 1.  Are you *sure* you are getting 0?)

warn "Just another Perl hacker,\n" || die;
--
Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
merlyn@reed.edu (guest account) merlyn@ora.com (better for permanent record)
cute quote: "Welcome to Portland, Oregon -- home of the California Raisins!"
Newsgroups: comp.lang.perl
From: sherman@unx.sas.com (Chris Sherman)
Subject: Re: Problem with order of precedence, maybe
Date: Fri, 31 Jul 1992 00:02:01 GMT
Organization: SAS Institute Inc.

In <MERLYN.92Jul30065305@romulus.reed.edu> merlyn@romulus.reed.edu (Randal L. Schwartz) writes:

>In article <sherman.712450219@foster> sherman@unx.sas.com (Chris Sherman) writes:
>   According to the perl book, '&' comes before '!=', so theoretically, what
>   numbers between 1-4 get hit should result in the same numbers getting hit
>   on the second set of statements.

>Hmm.  According to *my* copy of the Camel Book (presuming that's the
>"perl book" you are talking about), I see "&" at a *lower* precedence
>than "!=", so I'd expected "!=" to bind more tightly, and that is in
>fact what is happening.

Opps...  My mistake...  After continued study of the page in question, I 
discovered that the chart is upsidedown.  (IMHO, of course  :)  Every other
precedence chart I have ever read (all 3 of them, or so) listed highest to
lowest precedence from the highest point on the page to the lowest. 

Sorry for wasting bandwidith with my stupid question.   I should RTFM 
(can we still say 'F'? :)  more carefully.

-- 
     ____/     /     /     __  /    _  _/    ____/
    /         /     /     /   /      /     /          Chris Sherman
   /         ___   /        _/      /          /
 _____/   __/   __/   __/ _\    _____/   _____/           sherman@unx.sas.com
From: tswenson@de3a1066a.osd.mil (Tim Swenson)
Newsgroups: comp.lang.perl
Subject: CHR$() in Perl
Summary: Looking for the opposite of ord()
Date: 29 Jul 92 20:13:05 GMT

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.

Thanks in advance,

Tim Swenson
DPLDC, Pentagon
From: pete@winesap. (Pete Schmitt)
Newsgroups: comp.lang.perl
Subject: perlPL35 fails op/dbm tests 5 6 7 8 and 10 on A/UX 3.0
Date: 28 Jul 92 19:56:45 GMT
Organization: Dartmouth College, Hanover, NH

These are the only tests that fail on A/UX 3.0.  If you got it
to test out on 3.0, please send me your success story, thanks!

-pete

--
Peter Schmitt, UNIX Systems Specialist, Computing Services, Dartmouth College
Email: peter.schmitt@dartmouth.edu                        Phone: 603-646-2085
******* Let us not give up meeting together, as some are in the habit *******
******* of doing, but let us encourage one another.    -Hebrews 10:25 *******
From: merlyn@romulus.reed.edu (Randal L. Schwartz)
Newsgroups: comp.lang.perl
Subject: Re: Problem with order of precedence, maybe
Date: 30 Jul 92 13:53:08 GMT
Article-I.D.: romulus.MERLYN.92Jul30065305
Organization: Reed College

In article <sherman.712450219@foster> sherman@unx.sas.com (Chris Sherman) writes:
   According to the perl book, '&' comes before '!=', so theoretically, what
   numbers between 1-4 get hit should result in the same numbers getting hit
   on the second set of statements.

Hmm.  According to *my* copy of the Camel Book (presuming that's the
"perl book" you are talking about), I see "&" at a *lower* precedence
than "!=", so I'd expected "!=" to bind more tightly, and that is in
fact what is happening.

I agree, the posted code snippet is incorrect.  Not enough parens.

print grep (1 & $_ != 1, split(//, "Just another Perl hacker,")) # odd chars?

--
Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
merlyn@reed.edu (guest account) merlyn@ora.com (better for permanent record)
cute quote: "Welcome to Portland, Oregon -- home of the California Raisins!"
Newsgroups: comp.lang.perl
From: ripper@athena.mit.edu
Subject: strange STDIN and STDOUT in MS-DOS
Reply-To: ripper@athena.mit.edu
Organization: The Internet
Date: Wed, 29 Jul 1992 21:38:53 GMT


I am trying to use a version of MS-DOS perl I found on
jpl-devvax.jpl.nasa.gov (patchlevel 44).

A big problem with it is that stdin and stdout redirection
don't work.  I think this has to do with how stdin and stdout
is being presented to the perl script when it runs because
there is also an error in the getc() function.

Is there another version of perl I can use that works better,
or do I need to learn how to change the line discipline with
from within perl.

Also, is there (and yes this is hoping for too much probably)
and MS-DOS c2ph so that I can use C libraries from perl?


-Ross
    
Xref: sparky comp.lang.perl:4839 comp.sys.pyramid:167
Newsgroups: comp.lang.perl,comp.sys.pyramid
Subject: Re: Perl4.19 setsockopt() ... Pyramid 9815 - fix
From: A.Raman@massey.ac.nz (Anand)
Date: Tue, 21 Jul 92 04:29:44 GMT
Organization: Massey University Computer Centre

Hi,

Sorry about this enormous number of repetitions.  But the second
post had a correction in it.  Then I found I couldn't cancel the
original one.

Anyway, here is what I found finally worked:

I needed to pack the option argument to setsockopt.

I was doing:

> setsockopt(S, &SOL_SOCKET, &SO_BROADCAST, 1);

What I needed to do was:

> setsockopt(S, &SOL_SOCKET, &SO_BROADCAST, pack("I", 1));

Why that worked on the Ultrix machine, I still don't know.  Does the
Ultrix version of perl pack it for me?

Thanks to everyone who clarified this.

- &
Newsgroups: comp.lang.perl
From: gary@wimsey.bc.ca (Gary Gunderson)
Subject: Unimplemented directory operation error
Organization: BC News and Mail
Date: Tue, 21 Jul 1992 18:55:53 GMT

Hello Perl Netland,

I am trying to implement the mirror suite of PERL scripts using PERL 4.0
rev 4.0.1.4 under SCO ODT 2.0.

The mirror.pl script breaks with the following error:

	Unimplemented directory operation at ./mirror.pl line 1077

The offending chunk of code looks like:

		if( !opendir( dir, $dir ) ){
			print "Cannot open local directory $dir, skipping it\n";
			next;
		}

The value of $dir at this point is "." .

I've created small test scripts that duplicate this routine and they execute
without complaint.

I am at a loss as to what to try next. Does anyone have any suggestions
or hints for this PERL programming newbie.

Please e-mail your replies. If the answers are in demand by others, I will
summarize to the net.

Thank you in advance.

Gary Gunderson

gary@wimsey.bc.ca
 
Newsgroups: comp.lang.perl
From: guru@camelot.bradley.edu (Jerry Whelan)
Subject: Re: BUG? in 4.035: length($`) is strange
Organization: The Smelly Ditch
Date: Wed, 29 Jul 92 23:13:55 GMT

In article <1992Jul29.213032.11414@ugle.unit.no> harald.alvestrand@delab.sintef.no writes:
-} Environment: Sun-4, SunOS 4.1.1, cc used for compilation.
-} Also fails on HP-UX 8.0.whatever, HP-710 (different length, thou....)
-} 
-} As you can see, I already have a workaround, but I do not like bugs....
-} can someone check if it is problematic in other versions, too?

	I get the same behaviour under SVR4 with pl35.

-------------------------------------------------------------------------------
``written by a drunken insane pathological liar''        guru@stasi.bradley.edu