projects / packages / swig.git / blame
| Commit | Line | Data |
|---|---|---|
| 25a24894 JB |
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; |