Skip to content

Commit

Permalink
Adjust DBMS_OUTPUT calls to the migration assessment count.
Browse files Browse the repository at this point in the history
  • Loading branch information
darold committed Jan 13, 2016
1 parent 2f54c89 commit de58c3f
Showing 1 changed file with 7 additions and 0 deletions.
7 changes: 7 additions & 0 deletions lib/Ora2Pg/PLSQL.pm
Original file line number Diff line number Diff line change
Expand Up @@ -91,6 +91,7 @@ $QUERY_TEST_SCORE = 0.1;
'SQLCODE' => 1,
'TABLE' => 2,
'DBMS_' => 3,
'DBMS_OUTPUT.put' => 1,
'UTL_' => 3,
'CTX_' => 3,
'EXTRACT' => 0.1,
Expand Down Expand Up @@ -994,6 +995,12 @@ sub estimate_cost
$cost_details{'PIPE ROW'} += $n;
$n = () = $str =~ m/DBMS_\w/igs;
$cost_details{'DBMS_'} += $n;
$n = () = $str =~ m/DBMS_OUTPUT\.(put_line|new_line|put)/igs;
$cost_details{'DBMS_'} -= $n;
$n = () = $str =~ m/DBMS_OUTPUT\.put\(/igs;
$cost_details{'DBMS_OUTPUT.put'} += $n;
$n = () = $str =~ m/DBMS_STANDARD\.RAISE EXCEPTION/igs;
$cost_details{'DBMS_'} -= $n;
$n = () = $str =~ m/UTL_\w/igs;
$cost_details{'UTL_'} += $n;
$n = () = $str =~ m/CTX_\w/igs;
Expand Down

0 comments on commit de58c3f

Please sign in to comment.