swig-format.patch

   1 --- SWIG-1.3.19/Source/Modules/perl5.cxx.orig   Tue Dec  3 21:33:33 2002
   2 +++ SWIG-1.3.19/Source/Modules/perl5.cxx        Sat Apr 12 10:56:55 2003
   3 @@ -129,10 +129,10 @@
   4      for (i = 1; i < argc; i++) {
   5        if (argv[i]) {
   6         if(strcmp(argv[i],"-package") == 0) {
   7 -         Printf(stderr,"*** -package is no longer supported\n*** use the directive '%module A::B::C' in your interface file instead\n*** see the Perl section in the manual for details.\n");
   8 +         Printf(stderr,"*** -package is no longer supported\n*** use the directive '%%module A::B::C' in your interface file instead\n*** see the Perl section in the manual for details.\n");
   9           SWIG_exit(EXIT_FAILURE);
  10         } else if(strcmp(argv[i],"-interface") == 0) {
  11 -         Printf(stderr,"*** -interface is no longer supported\n*** use the directive '%module A::B::C' in your interface file instead\n*** see the Perl section in the manual for details.\n");
  12 +         Printf(stderr,"*** -interface is no longer supported\n*** use the directive '%%module A::B::C' in your interface file instead\n*** see the Perl section in the manual for details.\n");
  13           SWIG_exit(EXIT_FAILURE);
  14         } else if (strcmp(argv[i],"-exportall") == 0) {
  15           export_all = 1;