[ale] OFFTOPIC: Perl -w oddities?

[Wandered Inn]

Nomad the Wanderer wrote:
> 
> Yes, about 20 lines up it's assigned the value of $_, and it
> can be printed one line before this error.

Have you tried running the code on another machine, different OS?

> 
> Robert
> 
> Thus spake Wandered Inn (esoteric at denali.atlnet.com):
> 
> > Nomad the Wanderer wrote:
> > >
> > > Ok,
> > >
> > > eb-nfs1:310%>/usr/local/bin/perl.SunOS56 -v
> > >   This is perl, version 5.004_04 built for sun4-solaris
> > >
> > > Called as:
> > >   eb-nfs1:310%>/usr/local/bin/perl.SunOS56 -w
> > >
> > > I get this repeatedly:
> > > Use of uninitialized value at ./FixSudoers line 55, <SUDOERS> chunk 51.
> > >
> > > Line 55:
> > >     $Line =~ s/ //g;
> > >
> > >   I'm confused as I have defined $Line, but if I remove the "$Line =~"
> > > the message goes away.  I can even do a $Line=""; right before and I
> > > still get the errors.
> >
> > I'm assuming $Line has a value prior to Line 55?  If not this is your
> > problem.
> >
> > >
> > > Robert
> > >
> > > ---------------------------------------------------------------------------
> > > Robert L. Harris                |    Windows is to Unix
> > > Senior System Administrator II  |      what 'hooked on phonics'
> > >   at Great West Life.           \_       is to Shakespeare
> > >
> > > http://www.orci.com/~nomad
> > >
> > > DISCLAIMER:
> > >       These are MY OPINIONS ALONE.  I speak for no-one else.
> > >
> > > FYI:
> > >  perl -e 'print $i=pack(c5,(41*2),sqrt(7056),(unpack(c,H)-2),oct(115),10);'
> >
> > --
> > Until later: Geoffrey         esoteric at denali.atlnet.com
> >
> > You mean you paid MONEY for Service Pack '98????
> 
> ---------------------------------------------------------------------------
> Robert L. Harris                |    Windows is to Unix
> Senior System Administrator II  |      what 'hooked on phonics'
>   at Great West Life.           \_       is to Shakespeare
> 
> http://www.orci.com/~nomad
> 
> DISCLAIMER:
>       These are MY OPINIONS ALONE.  I speak for no-one else.
> 
> FYI:
>  perl -e 'print $i=pack(c5,(41*2),sqrt(7056),(unpack(c,H)-2),oct(115),10);'

--
Until later: Geoffrey		esoteric at denali.atlnet.com

You mean you paid MONEY for Service Pack '98????