Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Re^2: adding libs in a setuid-perl script

by LucBrussels (Initiate)
on Aug 30, 2010 at 13:58 UTC ( #858010=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
       my $libref = dl_load_file($file, $module->dl_load_flags) or 
            croak("Can't load '$file' for module $module: ".dl_error());
    
  2. or download this
    package Sybase::Simple; 
     
    ...
     
    use Carp; 
    use Sybase::CTlib qw(:DEFAULT !ct_callback);
    
  3. or download this
    $ ldd /usr/local/test/lib/perl5/site_perl/5.12.1/sun4-solaris/auto/Syb
    +ase/CTlib/CTlib.so
            libct.so =>      /local/sybase/sdk1251/OCS-12_5/lib//libct.so
    ...
            libgen.so.1 =>   /lib/libgen.so.1
            /platform/SUNW,Sun-Fire-V490/lib/libc_psr.so.1
            /platform/SUNW,Sun-Fire-V490/lib/libmd_psr.so.1
    
  4. or download this
    #!/usr/local/test/bin/perl  
     
    ...
    use Sybase::Simple; 
     
    exit;
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://858010]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (5)
As of 2021-01-24 16:32 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?