Thanks for your help.

We tried few things to give the exact reproducer. What we figured is , Issue is reproducible when application is multi threaded.

In Multi threaded application , even after exiting the thread FDs are not freed.

Please find the reproducer scripts and steps below.

File1 : Sample.pm

package sample;

use strict;
use DBI;

my $count = 0;

sub showtime () {
   print "Starting loop \n";
   #while ( $count < 50 ) {

      $count++;
      print ("Connecting to DB \n");
      # Modify sid, user, password values.
      my $dbh = DBI->connect("DBI:Oracle:host=localhost;port=1521;sid=
+syno",'temipsyno','temipsyno',{PrintError => 1, RaiseError => 1, ora_
+envhp => 0});

      #my $cmd = "grep  VmRSS /proc/$$/status";
      # Check no. of fd's after connection to db.
      #my $cmd = "ls -l /proc/$$/fd | grep ocius";
      #print `$cmd`;
      sleep(1);
      print ("Disconnecting from DB \n");
      $dbh->disconnect or warn "Disconnection failed: $DBI::errstr\n";
   #}
   print "Ending script \n";
}
1;
[download]

Source file2 : scr1

#!/usr/local/bin/perl

use threads;
use sample;


$ENV{'ORACLE_HOME'} = '/usr/opt/oracle';

sub worker() {

   my $count = 0;

   # Make it do some work (open and close DB 10 times).
   while ( $count < 2 ) {
      sample::showtime();
      $count = $count + 1 ;
      #my $cmd = "ls -l /proc/$$/fd | grep ocius";
      #print threads -> self() -> tid()  . " : " . `$cmd` ;
      sleep 3
   }
}

my $nthreads = 5;

for ( 1..$nthreads )
{
   threads->create(\&worker);
}

foreach my $thr (threads->list() )
{
   $thr->join();
}

print ("Check no. of fd's for ocius.msb using lsof -p $$. Sleeping 30s
+ \n");
print ("If no. of fd's > 0, then why there is still fd's not closed ev
+en after"
       . " threads have exited \n");

sleep(30);
[download]

How to execute the script:

./scr1
[download]

Sample o/p:

Starting loop
Connecting to DB
Starting loop
Connecting to DB
Starting loop
Connecting to DB
Starting loop
Connecting to DB
Starting loop
Connecting to DB
Disconnecting from DB
Ending script
Disconnecting from DB
Ending script
Disconnecting from DB
Ending script
Disconnecting from DB
Ending script
Disconnecting from DB
Ending script
Starting loop
Connecting to DB
Starting loop
Connecting to DB
Starting loop
Connecting to DB
Starting loop
Connecting to DB
Starting loop
Connecting to DB
Disconnecting from DB
Ending script
Disconnecting from DB
Ending script
Disconnecting from DB
Ending script
Disconnecting from DB
Ending script
Disconnecting from DB
Ending script
Check no. of fd's for ocius.msb using lsof -p 9940. Sleeping 30s
[download]

If no. of fd's > 0, then why there is still fd's not closed even after threads have exited

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.