Platon Technologies
not logged in Login Registration
EnglishSlovak
open source software development celebrating 10 years of open source development! Wednesday, October 14, 2026
[BACK] [TXT][DIR] Up to [Platon] / scripts / perl / oracle

Diff for scripts/perl/oracle/oracledump.pl between version 1.32 and 1.33

version 1.32, 2008/08/23 18:45:25 version 1.33, 2008/08/23 18:54:00
Line 1 
Line 1 
 #!/usr/bin/perl  #!/usr/bin/perl
   
 # $Platon: scripts/perl/oracle/oracledump.pl,v 1.31 2008-08-23 18:44:21 nepto Exp $  # $Platon: scripts/perl/oracle/oracledump.pl,v 1.32 2008-08-23 18:45:25 nepto Exp $
   
 use strict;  use strict;
   
Line 499  MARK
Line 499  MARK
                                                                   : ( (($row[1] eq 'CLOB') or ($row[1] =~ /RAW/) or ($row[1] eq 'PRACFOND'))                                                                    : ( (($row[1] eq 'CLOB') or ($row[1] =~ /RAW/) or ($row[1] eq 'PRACFOND'))
                                                                           ? 'BLOB' : $row[1] ) ) ) ),                                                                            ? 'BLOB' : $row[1] ) ) ) ),
                     ( defined $row[5]                      ( defined $row[5]
                         ? ($row[5] =~ /^SYSDATE/i ? '' : 'DEFAULT ' . $row[5])                          ? ((($row[5] =~ /^SYSDATE/i) or ($row[1] eq 'BLOB')) ? '' : 'DEFAULT ' . $row[5])
                         : '' ),                          : '' ),
                     ( $row[6] eq 'Y'                      ( $row[6] eq 'Y'
                         ? ''                          ? ''
Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33
Platon Group <platon@platon.org> http://platon.org/
Copyright © 2002-2006 Platon Group
Site powered by Metafox CMS 		Go to Top