[Pgp-tools-commit] r128 - trunk/caff

[Peter Palfrader]

Author: weasel
Date: 2005-07-13 14:18:04 +0000 (Wed, 13 Jul 2005)
New Revision: 128

Modified:
   trunk/caff/caff
Log:
Use /i instead of A-Fa-f in one place

Modified: trunk/caff/caff
===================================================================
--- trunk/caff/caff	2005-07-13 14:16:42 UTC (rev 127)
+++ trunk/caff/caff	2005-07-13 14:18:04 UTC (rev 128)
@@ -271,7 +271,7 @@
 	die ("keyid is not defined.\n") unless defined $CONFIG{'keyid'};
 	die ("keyid is not an array ref\n") unless (ref $CONFIG{'keyid'} eq 'ARRAY');
 	for my $keyid (@{$CONFIG{'keyid'}}) {
-		$keyid =~ /^[A-Fa-f0-9]{16}$/ or die ("key $keyid is not a long (16 digit) keyid.\n");
+		$keyid =~ /^[A-F0-9]{16}$/i or die ("key $keyid is not a long (16 digit) keyid.\n");
 	};
 	@{$CONFIG{'keyid'}} = map { uc } @{$CONFIG{'keyid'}};
 	$CONFIG{'export-sig-age'}= 24*60*60 unless defined $CONFIG{'export-sig-age'};