View | Details | Raw Unified | Return to bug 193785
Collapse All | Expand All

(-)p5-PatchReader/Makefile (-1 / +2 lines)
Lines 3-8 Link Here
3
3
4
PORTNAME=	PatchReader
4
PORTNAME=	PatchReader
5
PORTVERSION=	0.9.6
5
PORTVERSION=	0.9.6
6
PORTREVISION=	1
6
CATEGORIES=	devel perl5
7
CATEGORIES=	devel perl5
7
MASTER_SITES=	CPAN
8
MASTER_SITES=	CPAN
8
MASTER_SITE_SUBDIR=	CPAN:TMANNERM
9
MASTER_SITE_SUBDIR=	CPAN:TMANNERM
Lines 11-17 Link Here
11
MAINTAINER=	toni.viemero@iki.fi
12
MAINTAINER=	toni.viemero@iki.fi
12
COMMENT=	Perl module with utilities to read and manipulate patches and CVS
13
COMMENT=	Perl module with utilities to read and manipulate patches and CVS
13
14
14
USES=		perl5
15
USES=		perl5 dos2unix
15
USE_PERL5=	configure
16
USE_PERL5=	configure
16
17
17
.include <bsd.port.mk>
18
.include <bsd.port.mk>
(-)p5-PatchReader/files/patch-lib__PatchReader__Raw.pm (+24 lines)
Line 0 Link Here
1
--- lib/PatchReader/Raw.pm.orig	2014-09-20 06:54:09 UTC
2
+++ lib/PatchReader/Raw.pm
3
@@ -41,7 +41,7 @@
4
   return if $line =~ /^\?/;
5
 
6
   # patch header parsing
7
-  if ($line =~ /^---\s*([\S ]+)\s*\t([^\t\r\n]*)\s*(\S*)/) {
8
+  if ($line =~ /^---\s+([\S ]+)\s*?(?:\t([^\t\r\n]*)\s*(\S*))?/) {
9
     $this->_maybe_end_file();
10
 
11
     if ($1 eq "/dev/null") {
12
@@ -54,9 +54,12 @@
13
 
14
     $this->{IN_HEADER} = 1;
15
 
16
-  } elsif ($line =~ /^\+\+\+\s*([\S ]+)\s*\t([^\t\r\n]*)(\S*)/) {
17
+  } elsif ($line =~ /^\+\+\+\s+([\S ]+)\s*?(?:\t([^\t\r\n]*)(\S*))?/) {
18
     if ($1 eq "/dev/null") {
19
       $this->{FILE_STATE}{is_remove} = 1;
20
+    } else {
21
+      $this->{FILE_STATE}{filename} = $1;
22
     }
23
     $this->{FILE_STATE}{new_date_str} = $2;
24
     $this->{FILE_STATE}{new_revision} = $3 if $3;

Return to bug 193785