Bug fix (Perl on FreeBSD does not support -T and -B tests on a

filehandle;  do not use them).

PR:		31848
Submitted by:	maintainer
This commit is contained in:
Anton Berezin 2001-11-18 22:54:13 +00:00
parent ccd489da95
commit 53cb146de0
Notes: svn2git 2021-03-31 03:12:20 +00:00
svn path=/head/; revision=50200
2 changed files with 23 additions and 0 deletions

View file

@ -7,6 +7,7 @@
PORTNAME= makepatch
PORTVERSION= 2.00a
PORTREVISION= 1
CATEGORIES= textproc perl5
MASTER_SITES= ${MASTER_SITE_PERL_CPAN}
MASTER_SITE_SUBDIR= ../../authors/id/JV

View file

@ -0,0 +1,22 @@
--- makepatch.PL Sun Dec 6 09:04:51 1998
+++ makepatch.PL.new Mon Nov 5 19:47:17 2001
@@ -670,11 +670,14 @@
$skipped++;
return 0;
}
- if ( -B $fh ) {
- verbose ("WARNING: Binary file $new -- skipped\n");
- $skipped++;
- return 0;
- }
+# Binary/Text test on filehandle makes no sense (and causes failure)
+# on FreeBSD
+#
+# if ( -B $fh ) {
+# verbose ("WARNING: Binary file $new -- skipped\n");
+# $skipped++;
+# return 0;
+# }
my $pos = $fh->getpos;
while ( <$fh> ) {
$lines++;