--- loncom/lonnet/perl/lonnet.pm	2009/11/28 21:33:57	1.1045
+++ loncom/lonnet/perl/lonnet.pm	2009/11/29 00:17:22	1.1046
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1045 2009/11/28 21:33:57 raeburn Exp $
+# $Id: lonnet.pm,v 1.1046 2009/11/29 00:17:22 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -6142,7 +6142,7 @@ sub devalidate_getgroups_cache {
 
 sub plaintext {
     my ($short,$type,$cid,$forcedefault) = @_;
-    if ($short =~ /^cr/) {
+    if ($short =~ m{^cr/}) {
 	return (split('/',$short))[-1];
     }
     if (!defined($cid)) {