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.9 and 1.10

version 1.9, 2004/01/23 14:09:08 version 1.10, 2004/01/23 14:12:42
Line 1 
Line 1 
 #!/usr/bin/perl  #!/usr/bin/perl
   
 # $Platon: scripts/perl/oracle/oracledump.pl,v 1.8 2004/01/23 13:54:52 nepto Exp $  # $Platon: scripts/perl/oracle/oracledump.pl,v 1.9 2004/01/23 14:09:08 nepto Exp $
   
 use strict;  use strict;
   
Line 433  MARK
Line 433  MARK
   
         if ( !defined $opt_no_create_info ) {          if ( !defined $opt_no_create_info ) {
             if ($opt_mysql_compliant_dump) {              if ($opt_mysql_compliant_dump) {
                 printf( " %1s%-22s%-15s%-21s%-8s\n",                  printf( " %1s%-22s %-15s %-21s %-8s\n",
                     ( $c != 1 ? ',' : ' ' ),                      ( $c != 1 ? ',' : ' ' ),
                     lc( $row[0] ),                      lc( $row[0] ),
                     ( $row[1] eq 'NUMBER'                      ( $row[1] eq 'NUMBER'
Line 455  MARK
Line 455  MARK
                         : 'NOT NULL' )                          : 'NOT NULL' )
                 );                  );
             } else {              } else {
                 printf( " %1s%-22s%-15s%-21s%-8s\n",                  printf( " %1s%-22s %-15s %-21s %-8s\n",
                     ( $c != 1 ? ',' : ' ' ),                      ( $c != 1 ? ',' : ' ' ),
                     lc( $row[0] ),                      lc( $row[0] ),
                     ( $row[1] eq 'NUMBER'                      ( $row[1] eq 'NUMBER'
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
Platon Group <platon@platon.org> http://platon.org/
Copyright © 2002-2006 Platon Group
Site powered by Metafox CMS 		Go to Top