Showing content from http://www.cpan.org/src/5.0/sperl-2000-08-05/sperl5.004_05-2000-08-05.patch below:
diff -rc perl5.004_05.dist/patchlevel.h perl5.004_05/patchlevel.h *** perl5.004_05.dist/patchlevel.h Thu Apr 29 17:54:58 1999 --- perl5.004_05/patchlevel.h Tue Aug 8 03:08:02 2000 *************** *** 39,44 **** --- 39,45 ---- /* The following line and terminating '};' are read by perlbug.PL. Don't alter. */ static char *local_patches[] = { NULL + ,"SUIDMAIL - fixes for suidperl security" ,NULL }; diff -rc perl5.004_05.dist/perl.c perl5.004_05/perl.c *** perl5.004_05.dist/perl.c Tue Apr 6 22:38:11 1999 --- perl5.004_05/perl.c Mon Aug 7 21:03:57 2000 *************** *** 1926,1941 **** if (tmpstatbuf.st_dev != statbuf.st_dev || tmpstatbuf.st_ino != statbuf.st_ino) { (void)PerlIO_close(rsfp); - if (rsfp = my_popen("/bin/mail root","w")) { /* heh, heh */ - PerlIO_printf(rsfp, - "User %ld tried to run dev %ld ino %ld in place of dev %ld ino %ld!\n\ - (Filename of set-id script was %s, uid %ld gid %ld.)\n\nSincerely,\nperl\n", - (long)uid,(long)tmpstatbuf.st_dev, (long)tmpstatbuf.st_ino, - (long)statbuf.st_dev, (long)statbuf.st_ino, - SvPVX(GvSV(curcop->cop_filegv)), - (long)statbuf.st_uid, (long)statbuf.st_gid); - (void)my_pclose(rsfp); - } croak("Permission denied\n"); } if ( --- 1926,1931 ----
RetroSearch is an open source project built by @garambo
| Open a GitHub Issue
Search and Browse the WWW like it's 1997 | Search results from DuckDuckGo
HTML:
3.2
| Encoding:
UTF-8
| Version:
0.7.4