cpet/freebsd-ports
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Make the perl version of cops run.

Browse Source 
PR:		4227
Submitted by:	Annelise Anderson <andrsn.stanford.edu@andrsn.standford.edu>
This commit is contained in:
Steve Price 1998-02-22 01:27:22 +00:00
parent 6c2fdb7ccf
commit 0946932e4d
Notes: svn2git 2021-03-31 03:12:20 +00:00 
svn path=/head/; revision=9879
1 changed files with 32 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
security/cops/files/patch-aa Normal file
View File

@ -0,0 +1,32 @@
--- perl/cops.orig Sat Feb 21 19:20:10 1998
+++ perl/cops Sat Feb 21 19:21:06 1998
@@ -1,8 +1,4 @@
-#!/bin/sh -- need to mention perl here to avoid recursion
-'true' || eval 'exec perl -S $0 $argv:q';
-eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
-& eval 'exec /usr/local/bin/perl -S $0 $argv:q'
- if 0;
+#!/usr/bin/perl
#
# Usage: cops [-vx] [-c config file] [-s secure_dir] [architecture]
@@ -83,7 +79,7 @@
# Read stuff to do from the config file
die "$0: Can't trust $CONFIG to reconfig!\n" if &'is_writable($CONFIG);
-open CONFIG || die "can't open $CONFIG: $!";
+open (CONFIG) || die "can't open $CONFIG: $!";
&argh unless -s $CONFIG;
@@ -219,8 +215,8 @@
}
return 1 if (($FILE2 eq "") || (-s $FILE1 != -s $report));
- open FILE1 || die "can't open $FILE1: $!\n";
- open FILE2 || die "can't open $FILE2: $!\n";
+ open (FILE1) || die "can't open $FILE1: $!\n";
+ open (FILE2) || die "can't open $FILE2: $!\n";
for (1..5) {
$_ = <FILE1>;