[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm

albertel lon-capa-cvs@mail.lon-capa.org
Sun, 18 Feb 2007 01:51:20 -0000


albertel		Sat Feb 17 20:51:20 2007 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - remove log spew
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.832 loncom/lonnet/perl/lonnet.pm:1.833
--- loncom/lonnet/perl/lonnet.pm:1.832	Thu Feb 15 20:04:19 2007
+++ loncom/lonnet/perl/lonnet.pm	Sat Feb 17 20:51:20 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.832 2007/02/16 01:04:19 raeburn Exp $
+# $Id: lonnet.pm,v 1.833 2007/02/18 01:51:20 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -5134,9 +5134,7 @@
 
 sub declutter_portfile {
     my ($file) = @_;
-    &logthis("got $file");
-    $file =~ s-^(/portfolio/|portfolio/)-/-;
-    &logthis("ret $file");
+    $file =~ s{^(/portfolio/|portfolio/)}{/};
     return $file;
 }