Compatibility problem between 8.0.5 and 8.1.7

Question

We have a system that runs on 8.0.5 which we wish to move to 8.1.7 or 9i, however on both versions we experience problems with PRAGMA's
Given the package spec:
PACKAGE test IS
FUNCTION error_text (I_ERROR_NO IN INTEGER) RETURN VARCHAR2;
PRAGMA RESTRICT_REFERENCES (error_text, WNPS, WNDS);
and the function 'error_text' :
FUNCTION error_text(I_ERROR_NO IN INTEGER)RETURN VARCHAR2
IS
-- PL/SQL Block
CURSOR c_err
( cp_error_no INTEGER
) IS
SELECT description
FROM ukl_error
WHERE err_code = TO_CHAR(cp_error_no,'FM0000')
r_err c_err%ROWTYPE;
BEGIN
OPEN c_err( i_error_no );
FETCH c_err INTO r_err;
CLOSE c_err;
RETURN( r_err.description );
END error_text;
On compilation, it spits it out saying 'function error_text violates it's own pragma'
By removing the pragma, and running the function, the session hangs and then eventually times out.
This code works on versions 7.x, and up to 8.0.5 - are there any known issues for 8.1.x or higher which would explain why this doesn't work?
Thanks

Answer 1

No problems under 8.1.7.4 (only object name changes):
sql>create or replace package test
  2  is
  3    function error_text (i_error_no in integer)
  4      return varchar2;
  5  end;
  6  /
Package created.
sql>create or replace package body test
  2  is
  3    function error_text(i_error_no in integer)
  4      return varchar2
  5    is
  6      cursor c_err(cp_error_no integer)
  7        is
  8        select object_name
  9          from user_objects
10         where object_id = cp_error_no;
11      r_err c_err%rowtype;
12    begin
13      open c_err(i_error_no);
14      fetch c_err into r_err;
15      close c_err;
16      return(r_err.object_name);
17    end error_text;
18  end;
19  /
Package body created.
sql>select test.error_text(13760) from dual;
TEST.ERROR_TEXT(13760)
EMP
1 row selected.I would, however, recommend typing the parameter and return value to the columns and using an implicit instead of the explicit cursor.
sql>create or replace package test
  2  is
  3    function error_text (i_error_no in user_objects.object_id%type)
  4      return user_objects.object_name%type;
  5  end;
  6  /
Package created.
sql>create or replace package body test
  2  is
  3    function error_text(i_error_no in user_objects.object_id%type)
  4      return user_objects.object_name%type
  5    is
  6      v_return  user_objects.object_name%type;
  7    begin
  8      select object_name
  9        into v_return
10        from user_objects
11       where object_id = i_error_no;
12 
13      return(v_return);
14    end error_text;
15  end;
16  /
Package body created.
sql>select test.error_text(13760) from dual;
TEST.ERROR_TEXT(13760)
EMP
1 row selected.