From 1a80bf3aa31e03fefc251136efc3d8cd2301e3a3 Mon Sep 17 00:00:00 2001
From: Brian Somers <brian@FreeBSD.org>
Date: Wed, 17 Apr 2002 12:14:29 +0000
Subject: Replace some \N occurances with $N to silence perl -w

---
 misc/p5-DataCash/files/patch-File::KGlob2RE.pm | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 misc/p5-DataCash/files/patch-File::KGlob2RE.pm

(limited to 'misc/p5-DataCash/files/patch-File::KGlob2RE.pm')

diff --git a/misc/p5-DataCash/files/patch-File::KGlob2RE.pm b/misc/p5-DataCash/files/patch-File::KGlob2RE.pm
new file mode 100644
index 000000000000..9c7a754c60c0
--- /dev/null
+++ b/misc/p5-DataCash/files/patch-File::KGlob2RE.pm
@@ -0,0 +1,11 @@
+--- File/KGlob2RE.pm.orig	Wed Apr 17 13:05:33 2002
++++ File/KGlob2RE.pm	Wed Apr 17 13:06:10 2002
+@@ -110,7 +110,7 @@
+ 	warn "Unexpected end of file glob pattern: $glob\n";
+ 	return undef;
+     }
+-    if(  $re !~ s-$NOQT/\(\|,\.\*/\)$-\1/-  ) {		# X/%*	-> ^X/
++    if(  $re !~ s-$NOQT/\(\|,\.\*/\)$-$1/-  ) {		# X/%*	-> ^X/
+ 	$re .= '$';
+     } elsif(  "" eq $re  ) {	# Since m// means something else:
+ 	$re= "^";									# %/*	-> anything
-- 
cgit v1.2.3