From: Klaus A. S. <kse...@gm...> - 2005-03-26 10:07:08
|
I wrote: >>> "Use of uninitialized value in join or string at >>> /usr/local/sbin/sqlgrey line 711." >> >> If I'm not mistaken it should be harmless (annoying but harmless). It >> doesn't quit does it ? >=20 > You're right, it's harmless and SQLgrey doesn't quit. But the error messages are annoying in the logfile, so I've added a line to the subroutine: sub class_c { return $_[0] unless $_[0] =3D~ /\./; return join('.', (split(/\./, shift))[0..2]); } I don't speak perl, so please don't flame me for the un-prettiness. ;-) --=20 Klaus Alexander Seistrup SubZeroNet =B7 Copenhagen =B7 Denmark |