SPUG: "Too late for -T option" message?

[Aryeh "Cody" Sherr]

-T is enabling taint mode, perl's excellent facility for keeping track of
which data is coming into your program from your environment, which is
described as "tainted". Because things can be specified in the command
line, to be completely safe -T must be the first option specified. 

Try 

#!/usr/bin/perl -T -w 

rather than

#!/usr/bin/perl -w -T

Have fun. The perlsec man page has lots more info.

cody

On Tue, 28 Mar 2000, Richard Anderson wrote:

>When I run perl -c on this simple example CGI.pm program, I get:
>
>Too late for "-T" option at cgipm_test.pl line 1.
>
>What does this mean and what should I do to make the interpreter happy?
>
>Program and output from perl -V follow:
>
>Program:
>#! /usr/local/bin/perl -Tw
>
>use strict;
>use CGI qw(:standard);
>
>print header;
>print start_html('A Simple Example'),
>    h1('A Simple Example'),
>    start_form,
>    "What's your name? ",textfield('name'),
>    p,
>    "What's the combination?",
>    p,
>    checkbox_group(-name=>'words',
>                   -values=>['eenie','meenie','minie','moe'],
>                   -defaults=>['eenie','minie']),
>    p,
>    "What's your favorite color? ",
>    popup_menu(-name=>'color',
>               -values=>['red','green','blue','chartreuse']),
>    p,
>    submit,
>    end_form,
>    hr;
>
>if (param()) {
>    print
>        "Your name is",em(param('name')),
>        p,
>        "The keywords are: ",em(join(", ",param('words'))),
>        p,
>        "Your favorite color is ",em(param('color')),
>        hr;
>}
>print end_html;
>
>Output from perl -V
>Summary of my perl5 (5.0 patchlevel 5 subversion 3) configuration:
>  Platform:
>    osname=linux, osvers=2.2.1-ac1, archname=i386-linux
>    uname='linux porky.devel.redhat.com 2.2.1-ac1 #1 smp mon feb 1 17:44:44
>est
>1999 i686 unknown '
>    hint=recommended, useposix=true, d_sigaction=define
>    usethreads=undef useperlio=undef d_sfio=undef
>  Compiler:
>    cc='cc', optimize='-O2', gccversion=egcs-2.91.66 19990314/Linux
>(egcs-1.1.2
>release)
>    cppflags='-Dbool=char -DHAS_BOOL -I/usr/local/include'
>    ccflags ='-Dbool=char -DHAS_BOOL -I/usr/local/include'
>    stdchar='char', d_stdstdio=undef, usevfork=false
>    intsize=4, longsize=4, ptrsize=4, doublesize=8
>    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
>    alignbytes=4, usemymalloc=n, prototype=define
>  Linker and Libraries:
>    ld='cc', ldflags =' -L/usr/local/lib'
>    libpth=/usr/local/lib /lib /usr/lib
>    libs=-lnsl -lndbm -lgdbm -ldb -ldl -lm -lc -lposix -lcrypt
>    libc=, so=so, useshrplib=false, libperl=libperl.a
>  Dynamic Linking:
>    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic'
>    cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'
>
>
>Characteristics of this binary (from libperl):
>  Built under linux
>  Compiled at Apr  6 1999 23:34:07
>  @INC:
>    /usr/lib/perl5/5.00503/i386-linux
>    /usr/lib/perl5/5.00503
>    /usr/lib/perl5/site_perl/5.005/i386-linux
>    /usr/lib/perl5/site_perl/5.005
>    .
>Richard.Anderson at seaslug.org
>www.zipcon.net/~starfire/home (personal)
>www.raycosoft.com (corporate)
>
>
> - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
>     POST TO: spug-list at pm.org       PROBLEMS: owner-spug-list at pm.org
> Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/
> SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe
>           Email to majordomo at pm.org: "action" spug-list your_address
>
>
>


 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
     POST TO: spug-list at pm.org       PROBLEMS: owner-spug-list at pm.org
 Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/
 SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe
           Email to majordomo at pm.org: "action" spug-list your_address