Guest User

Untitled

a guest
Dec 9th, 2018
108
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 1.07 KB | None | 0 0
  1. --- /usr/bin/postgresql_autodoc.base    2012-09-30 15:40:23.000000000 -0700
  2. +++ /usr/bin/postgresql_autodoc 2012-09-30 15:49:40.000000000 -0700
  3. @@ -888,7 +888,11 @@ sub info_collect {
  4.      $sth_Function->execute();
  5.      while ( my $functions = $sth_Function->fetchrow_hashref and not $table_out )
  6.      {
  7. -        my $schema       = $functions->{'namespace'};
  8. +        my @fclass       = split('__', $functions->{'function_name'});
  9. +        if (scalar(@fclass) == 1) {
  10. +            unshift(@fclass, $functions->{'namespace'});
  11. +        }
  12. +        my $schema       = $fclass[0];
  13.          my $comment      = $functions->{'comment'};
  14.          my $functionargs = $functions->{'function_args'};
  15.          my @types        = split( ' ', $functionargs );
  16. @@ -917,7 +921,7 @@ sub info_collect {
  17.              push( @parameters, $parameter );
  18.          }
  19.          my $functionname = sprintf( '%s(%s)',
  20. -            $functions->{'function_name'},
  21. +            $fclass[1],
  22.              join( ', ', @parameters ) );
  23.  
  24.          my $ret_type = $functions->{'returns_set'} ? 'SET OF ' : '';
Add Comment
Please, Sign In to add comment