diff options
| author | steve <steve@FreeBSD.org> | 1998-02-22 09:27:22 +0800 |
|---|---|---|
| committer | steve <steve@FreeBSD.org> | 1998-02-22 09:27:22 +0800 |
| commit | 9f347d875f41cdef90de3ac5af08418f1c516c7f (patch) | |
| tree | 4f210a0a8eb6c033b7306c92ef7036ed184e1d9c /security/cops/files | |
| parent | 2d0fec313d653bb6e1ceafb7f6f3dac947abe5a9 (diff) | |
| download | freebsd-ports-gnome-9f347d875f41cdef90de3ac5af08418f1c516c7f.tar.gz freebsd-ports-gnome-9f347d875f41cdef90de3ac5af08418f1c516c7f.tar.zst freebsd-ports-gnome-9f347d875f41cdef90de3ac5af08418f1c516c7f.zip | |
Make the perl version of cops run.
PR: 4227
Submitted by: Annelise Anderson <andrsn.stanford.edu@andrsn.standford.edu>
Diffstat (limited to 'security/cops/files')
| -rw-r--r-- | security/cops/files/patch-aa | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/security/cops/files/patch-aa b/security/cops/files/patch-aa new file mode 100644 index 000000000000..53a8e007bd75 --- /dev/null +++ b/security/cops/files/patch-aa @@ -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>; |