|
[Date Prev] [Date Next] [Thread Prev] [Thread Next] [Date Index] [Thread Index]
|
Re: Strange Perl Script Behavior
|
On Mon, 30 Sep 2002 20:24:24 -0400, Meng Weng Wong wrote:
> On Mon, Sep 30, 2002 at 08:05:45PM -0400, David Steuber wrote:
> | sub wanted {
> | if (/^([-\@\w.]+)$/) {
> | push @image_files, $1; # this untaints the file names
> | }
> | }
>
> this scoops up directories as well as files. add a ! -d.
Ah directories! I totally spaced on that. I think this did the
trick. Thanks, Meng!
I'll look into getting other enhancements in as I add images. It
seems that randomly picking from just one image always gets me
the same image back ;-)
**Majordomo list services provided by PANIX <URL:http://www.panix.com>**
**To Unsubscribe, send "unsubscribe phl" to majordomo@lists.pm.org**
|
|