mirror of
https://git.FreeBSD.org/ports.git
synced 2024-10-30 21:49:25 +00:00
33 lines
1002 B
Plaintext
33 lines
1002 B
Plaintext
|
--- 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>;
|