Showing content from http://www.cpan.org/src/5.0/sperl-2000-08-05/sperl-5.6.0-2000-08-05.patch below:
diff -rc perl-5.6.0.dist/patchlevel.h perl-5.6.0/patchlevel.h *** perl-5.6.0.dist/patchlevel.h Wed Mar 22 22:23:11 2000 --- perl-5.6.0/patchlevel.h Tue Aug 8 03:06:46 2000 *************** *** 69,75 **** */ #if !defined(PERL_PATCHLEVEL_H_IMPLICIT) && !defined(LOCAL_PATCH_COUNT) static char *local_patches[] = { ! NULL ,NULL }; --- 69,76 ---- */ #if !defined(PERL_PATCHLEVEL_H_IMPLICIT) && !defined(LOCAL_PATCH_COUNT) static char *local_patches[] = { ! NULL ! ,"SUIDMAIL - fixes for suidperl security" ,NULL }; diff -rc perl-5.6.0.dist/perl.c perl-5.6.0/perl.c *** perl-5.6.0.dist/perl.c Sat Mar 18 00:35:15 2000 --- perl-5.6.0/perl.c Mon Aug 7 20:56:56 2000 *************** *** 2758,2773 **** if (tmpstatbuf.st_dev != PL_statbuf.st_dev || tmpstatbuf.st_ino != PL_statbuf.st_ino) { (void)PerlIO_close(PL_rsfp); - if (PL_rsfp = PerlProc_popen("/bin/mail root","w")) { /* heh, heh */ - PerlIO_printf(PL_rsfp, - "User %"Uid_t_f" tried to run dev %ld ino %ld in place of dev %ld ino %ld!\n\ - (Filename of set-id script was %s, uid %"Uid_t_f" gid %"Gid_t_f".)\n\nSincerely,\nperl\n", - PL_uid,(long)tmpstatbuf.st_dev, (long)tmpstatbuf.st_ino, - (long)PL_statbuf.st_dev, (long)PL_statbuf.st_ino, - CopFILE(PL_curcop), - PL_statbuf.st_uid, PL_statbuf.st_gid); - (void)PerlProc_pclose(PL_rsfp); - } Perl_croak(aTHX_ "Permission denied\n"); } if ( --- 2758,2763 ----
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