Error using component

[Leon Stern]

The code was used on an Oracle 7.3.4 database on AIX, The code was run on WinNT with ActiveState perl 5.6.

The code
use DBI;
use DDL::Oracle;
my $dbh = DBI->connect(
                        "dbi:Oracle:mydb",
                        "system_owner",
                        "system_password",
                        {
                         PrintError => 0,
                         RaiseError => 1
                        }
                      );

DDL::Oracle->configure( dbh    => $dbh, schema => 'MYSCHEMA' );

my $obj = DDL::Oracle->new(
                             type => 'components',
                             list => [[ 'no owner','no name' ]]
                           );

my $ddl = $obj->create;

print $ddl;

----------------------------------------------

The Error

  DB<1>
DBD::Oracle::db prepare failed: ORA-00904: invalid column name (DBD: error possibly near <*> indicator at char 647 in '
       SELECT
              RPAD(resource_name,27)
            , DECODE(
                      RESOURCE_NAME
                     ,'PASSWORD_VERIFY_FUNCTION',DECODE(
                                                         limit
                                                        ,'UNLIMITED','null'
                                                        ,LOWER(limit)
                                                       )
                     ,                           LOWER(limit)
                    )
       FROM
              dba_profiles
       WHERE
              profile = UPPER( :p1 )
       ORDER
          BY
              <*>resource_type
            , resource_name
      ') at C:/Perl/site/lib/DDL/Oracle.pm line 3078, <IN> line 4.
Debugged program terminated.  Use q to quit or R to restart,

[Richard Sutherland]

Yes, I see.  The CREATE PROFILE function is not able to function on a 7.3 instance.  This will be fixed in the next release.  If you'd like an interim fix, please see file patch.txt attached to Bug #413996.

Thanks for reporting this bug, Leon.

Richard