Re: [Perlgssapi-developer] http://search.cpan.org/~agrolms/GSSAPI-0.14/GSSAPI.pm

[Merijn B. <me...@il...>]

Quoting Achim Grolms (per...@gr...):
> On Thursday 09 February 2006 10:29, Merijn Broeren wrote:
> > Quoting Achim Grolms (per...@gr...):
> 
> > > split the ouput of
> > > kr5-config --libs gssapi
> > >
> > > to options that LIBS understands (@libs)
> > > and options to passed to LLDDLFLAGS
> > > (@others) or (@libs, @others)
> >
> > That would be a nice solution. I haven't actually looked at the code
> > that does the IGNOREing, it might let more pass then just -L. 
> 
> If you do so - please let me know if I have to change the RegEx
> ( m/(-[Ll][^ ]+)/) 
> 
> that divides the options into @LIBS and @LLDDLFLAGS.
> 
Well, the code looks like this :

  # Handle possible linker path arguments.
  if ($thislib =~ s/^(-[LR]|-Wl,-R)//){   # save path flag type
      my($ptype) = $1;
      unless (-d $thislib){
  	warn "$ptype$thislib ignored, directory does not exist\n"
  		if $verbose;
  	next;
      }
      my($rtype) = $ptype;
      if (($ptype eq '-R') or ($ptype eq '-Wl,-R')) {
  	if ($Config{'lddlflags'} =~ /-Wl,-R/) {
  	    $rtype = '-Wl,-R';
  	} elsif ($Config{'lddlflags'} =~ /-R/) {
  	    $rtype = '-R';
  	}
      }
     unless (File::Spec->file_name_is_absolute($thislib)) {
        warn "Warning: $ptype$thislib changed to $ptype$pwd/$thislib\n";
        $thislib = $self->catdir($pwd,$thislib);
      }
      push(@searchpath, $thislib);
      push(@extralibs,  "$ptype$thislib");
      push(@ldloadlibs, "$rtype$thislib");
      next;
  }
  
  # Handle possible library arguments.
  unless ($thislib =~ s/^-l//){
    warn "Unrecognized argument in LIBS ignored: '$thislib'\n";
    next;
  }

And I can think of several problems with this code. I'm not too thrilled 
to see that it strips out runpaths that do not exist at the time of
configuration. This would be a very normal thing for me to do. 

It alllow for -R and for -Wl,-R, so it should in my opinion also allow
for -Wl,-rpath -Wl,. But since it splits on space that might be a bit
more interesting. I'll send a mail to perl5-porters, see what they say. 

Cheers,
-- 
Merijn Broeren | Sometime in the middle ages, God got fed up with us 
Software Geek  | and put earth at sol.milky-way.univ in his kill-file.
               | Pray all you want, it just gets junked.