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:
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
|
@ -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
|
||||
|
|
22
textproc/makepatch/files/patch-makepatch.PL
Normal file
22
textproc/makepatch/files/patch-makepatch.PL
Normal 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++;
|
Loading…
Reference in a new issue