diff --git a/utils/MIGRATE_100_TO_200.pl b/utils/MIGRATE_100_TO_200.pl index ddb4195..ea59226 100644 --- a/utils/MIGRATE_100_TO_200.pl +++ b/utils/MIGRATE_100_TO_200.pl @@ -13,14 +13,14 @@ sub convert { local $/; my $orig = $_ = ; close(F); - + do_convert(); - + if ($orig ne $_) { print "$File::Find::name\n"; open(local *F, ">", $File::Find::name); binmode(F); print F $_; - close(F); + close(F); } } @@ -53,8 +53,8 @@ sub do_convert { # wrappers - s/DB_Pgsql_Type_EmptyNull/DB_Type_Wrapper_EmptyNull/sg; - s/DB_Pgsql_Type_Test_Type_EmptyNullTest/DB_Type_Test_Wrapper_EmptyNullTest/sg; + s/DB_Pgsql_Type_EmptyNull/DB_Type_Wrapper_EmptyToNull/sg; + s/DB_Pgsql_Type_Test_Type_EmptyNullTest/DB_Type_Test_Wrapper_EmptyToNullTest/sg; s/DB_Pgsql_Type_Length/DB_Type_Wrapper_Length/sg; s/DB_Pgsql_Type_Test_Type_LengthTest/DB_Type_Test_Rwapper_LengthTest/sg; @@ -107,4 +107,4 @@ sub do_convert { # utils s/DB_Pgsql_Type_Test_Util_TypeTestCase/DB_Type_Test_Util_TypeTestCase/sg; -} \ No newline at end of file +}