warn ?!

From: Jayakumar Rajagopal (JRajagopal_at_eagleinvsys.com)
Date: 03/26/04 

Date: Thu, 25 Mar 2004 22:16:23 -0500
To: <beginners@perl.org>

Hi,
     In my program , $sth->execute fails since oracle tables already present. It is very natural. But the waring message output line 37 is different(just behaves as print) from same kind of message at line 57. Any suggestions please..
regards,
Jay

regression Testing table( default : reg_test_cols) name :
 Not able to create reg_test_cols <?????? ***** this output is not similar as line 57 *** >
 discrepancy report table ( default : disc_table) name :
 Not able to create disc_table
  at /tmp/selfextract.XXXXXX/install line 57, <> chunk 5.

    26 $query=qq { create table reg_test_cols
    27 ( tabname varchar2(40),
    28 colname varchar2(40),
    29 iskey varchar2(1),
    30 tocomp varchar2(1),
    31 primary key (tabname,colname) )
    32 };
    33
    34 $sth=$dbh->prepare($query)|| warn " $DBI::errstr \n";
    35 unless ($sth->execute() )
    36 {
    37 warn " Not able to create reg_test_cols \n" ;
    38 }
    39 else
    40 {
    41 print " Successfully created table reg_test_cols \n";
    42 }
    43
    44
    45
    46 $query=qq { create table disc_table
    47 ( tabname varchar2(40),
    48 querycols varchar2(2000),
    49 cond varchar2(2000),
    50 rerun varchar2(1),
    51 seq number(4),
    52 primary key (tabname,cond,seq) )
    53 };
    54 $sth=$dbh->prepare($query) || warn " $DBI::errstr\n ";
    55 unless ($sth->execute() )
    56 {
    57 warn " Not able to create disc_table\n " ;
    58 }