-T Modus (Perl/CGI) - Perl-Community.de

[thread]10526[/thread]

-T Modus

pktm

2007-10-06 14:44

User since
2003-08-07
2921 Artikel
BenutzerIn

Hallo!

Ich dachte mir, ich könnte mal probieren, inwieweit meine Programme auch mit -T funktionieren, allerdngs kam ich da nicht sonderlich weit -.-

Und zwar benutze ich ein eigenes Modul, welches zusammen mit der Instanz im selben Verezichbis liegt. Um das benutzen zu können muss ich das aktuelle Verzeichnis als Pfad für Module angeben, also:

Code: (dl )

1
2

use FindBin qw/$Bin/;
use lib $Bin;

Dann erhalte ich allerdings den Fehler

Quote
Insecure dependency in require while running with -T switch at

Zumindest nehme ich mal an, dass es daran liegt, als dass das Skript überhaput nicht gestartet wird, wenn ich das Modul nicht mittels use lib $Bin; einbinde.

Wie kann ich das denn nun machen?

Grüße, pktm

http://www.intergastro-service.de (mein erstes CMS :) )

2007-10-06 15:10

User since
2003-08-04
12208 Artikel
Admin1

das problem ist, FindBin ist nicht taint-safe, weil der pfad u.u. aus umgebungsvariablen
erkannt wird.
es geht aber ein workaround:

Code (perl): (dl )

BEGIN {
    use FindBin qw/$Bin/;
    $Bin =~ m/(.*)/;
    $Bin = $1;
}
use lib $Bin;
use ...;

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

View all threads created 2007-10-06 14:44.