Diff for scripts/perl/oracle/oracledump.pl between version 1.17 and 1.18
| version 1.17, 2007/03/27 16:26:41 |
version 1.18, 2007/03/27 16:57:32 |
|
|
| #!/usr/bin/perl |
#!/usr/bin/perl |
| |
|
| # $Platon: scripts/perl/oracle/oracledump.pl,v 1.16 2007-03-18 04:25:38 nepto Exp $ |
# $Platon: scripts/perl/oracle/oracledump.pl,v 1.17 2007-03-27 16:26:41 nepto Exp $ |
| |
|
| use strict; |
use strict; |
| |
|
| Line 637 sub escape_data($$) |
|
| Line 637 sub escape_data($$) |
|
| |
|
| if ( $type eq 'NUMBER' ) { |
if ( $type eq 'NUMBER' ) { |
| return length $value > 0 ? $value : "''"; |
return length $value > 0 ? $value : "''"; |
| } elsif ( $type eq 'VARCHAR2' or $type eq 'CHAR') { |
} elsif ( $type eq 'VARCHAR2' or $type eq 'CHAR' or $type eq 'CLOB') { |
| if ( !defined $value ) { |
if ( !defined $value ) { |
| return "NULL"; |
return "NULL"; |
| } else { |
} else { |
| Line 651 sub escape_data($$) |
|
| Line 651 sub escape_data($$) |
|
| return "'$value'"; |
return "'$value'"; |
| } |
} |
| } else { |
} else { |
| die "Unknown type: $type\n"; |
die "escape_data(): unknown type: $type\n"; |
| } |
} |
| } |
} |
| |
|
Platon Group <platon@platon.org> http://platon.org/
|
|
Login
Registration
Slovak
![[BACK]](http://cvsweb.platon.sk/icons/back.gif){kind=icon}
![[TXT]](http://cvsweb.platon.sk/icons/text.gif){kind=icon}
![[DIR]](http://cvsweb.platon.sk/icons/dir.gif){kind=icon}
Up to