|
Posted by bxb7668 on July 15, 2005, 7:46 am
Please log in for more thread options
>
>
>> Here is a code snippet from my script that calls FindBin:
>>
>> #!/bin/perl
>> use strict;
>> use File::Basename;
>> use Getopt::Long;
>> use Cwd;
>> use Cwd 'abs_path';
>> require 5.6.1;
>>
>> # ------------------------------------------------
>> $ENV = my $UT_MYPATH = my $UT_CCPATH = "";
>> delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};
>
> Are the above 2 lines relevant to the problem ? If so, let us know. If
> not,
> let us know. If you don't know, remove them and then check to see what
> happens.
>
>>
>> # In the original script, the following line is line 101
>> use FindBin qw($Bin);
>> BEGIN { # Untaint $Bin
>> if ( "$Bin" =~ /^(.*)$/ ) { $Bin = $1; } else { die "Tainted
>> Bin\n";};
>> }
>> use lib ("$/perllib","$/../perllib");
>>
>> require 'bvb_include_common.pl';
>> bvb_set_PATH($Bin, $BVBDEBUG); # Set PATH to min. system libs
>>
>> exit(0);
>
> Not sure how you expect that to help us. Normally, when someone asks
> for
> code, a minimal example is provided. Your script seems to be failing
> at
> compile time - in which case, just about all the code that you have
> supplied
> is superfluous. I suspect that the problem can be produced by running
> the
> following script (if that script is in the same location as
> trigger.pl):
>
> use FindBin qw($Bin);
> __END__
>
> The problem is probably as Slaven said.
>
Sorry if I provided too much information. I've more often had people
want to see the entire script. Anyway, I tried your suggested one-liner
and FindBin worked fine. In fact, after having my script fail every
time on Tuesday and Wednesday, today it has started working without any
problems. The use says that he didn't change anything. Go figure. I
hate intermittent and/or unreproducible problems.
Thank you for taking a look.
Brian
| 
XML Sitemap