perl...

[Radoslaw Zielinski]

[[ Łukasz J. Mozer <baseciq-news at europa.fcp.edu.pl> ]]:
> jest sobie w skrypcie perlowym use CGI::Carp, niestety w naszej
> dystrybucji są dwa takie moduły:
[...]

  [radek 20:14:54 ~]$ locate CGI/Carp.pm | xargs grep VERSION
  /usr/lib/perl5/5.6.1/CGI/Carp.pm:$CGI::Carp::VERSION = '1.22';
  /usr/lib/perl5/site_perl/CGI/Carp.pm:$CGI::Carp::VERSION = '1.06';

Rzeczywiście, są dwa.

  $ perl -wle 'map print, @INC'
  /usr/lib/perl5/5.6.1/i686-pld-linux
  /usr/lib/perl5/5.6.1
  /usr/lib/perl5/site_perl/i686-pld-linux/5.6.1
  /usr/lib/perl5/site_perl
  /usr/lib/perl5/site_perl
  .

Powinien korzystać z pierwszego.

  $ perl -MCGI::Carp -wle 'print $CGI::Carp::VERSION'
  1.22

I korzysta.  U Ciebie powinno być dokładnie tak samo...  Może pokaż
ten skrypt?  Na upartego możesz zrobić tak (info z `perldoc -f use`):
zamiast linii "use CGI::Carp qw(import, np fatalsToBrowser);" daj:

BEGIN {
    require "/usr/lib/perl5/5.6.1/CGI/Carp.pm";
    import CGI::Carp qw(fatalsToBrowser czy co tam chcesz);
}


-- 
$ perl -Xle 's??xzot|\x2p}{|\x{0}etu|niz\x{0}xizr\x0negqiz\x2?*s`.`"chr+0".(40
+ord$&)`eeg*s$$\$_$ee'   ###%%#%%##   [ Radosław Zieliński <radek at karnet.pl> ]
[Don't tell my momma I'm a sysadmin, she thinks I play piano in a whorehouse.]
[                                                   -- Alan J Rosenthal, ASR ]
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 254 bytes
Desc: not available
URL: </mailman/pipermail/pld-devel-pl/attachments/20020605/b843a791/attachment.sig>