[Swig-cvs] SWIG/Examples/perl5/reference example.i,1.2,1.3

[William F. <wsf...@us...>]

Update of /cvsroot/swig/SWIG/Examples/perl5/reference
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv15826/Examples/perl5/reference

Modified Files:
	example.i 
Log Message:
use $self special variable instead of self in %extend

Index: example.i
===================================================================
RCS file: /cvsroot/swig/SWIG/Examples/perl5/reference/example.i,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** example.i	30 Nov 2002 21:58:48 -0000	1.2
--- example.i	8 Nov 2006 01:01:35 -0000	1.3
***************
*** 34,41 ****
    %extend {
      Vector &get(int index) {
!       return (*self)[index];
      }
      void set(int index, Vector &a) {
!       (*self)[index] = a;
      }
    }
--- 34,41 ----
    %extend {
      Vector &get(int index) {
!       return (*$self)[index];
      }
      void set(int index, Vector &a) {
!       (*$self)[index] = a;
      }
    }