memory leak on DBI

[Монашёв Михаил]

#!/usr/local/bin/perl -w

use strict;
use DBI;

my $dbh = DBI->connect($data_source, $username, $password)
my $i;
for ($i=1;$i<=100000000;$i++){
        # memory leak is here
        my $j=$dbh->quote("JDXHFGURSEFUDSBE hd2bgrkdbfgbdlbg''lsjfskrde");
        # in $dbh->quote()
        
        undef $j;
}
undef $i;
$dbh->disconnect();
undef $dbh;

you can change this code:

  return "'$str'";
  and this
  return "$lp$str$ls";
  
  to :
  
  return "'".$str."'";
  and
  return $lp.$str.$ls;

  concatination is better way, that "xxx $var xxx" !

  Thanks anyway, and sorry for my english.

  
С уважением,
Монашёв Михаил, SoftSearch.ru
ICQ# 166233339
http://softsearch.ru/
Без бэкапа по жизни.