--- loncom/build/rpmparse.pl	2001/04/03 13:27:41	1.3
+++ loncom/build/rpmparse.pl	2001/04/03 13:33:22	1.4
@@ -2,8 +2,8 @@
 
 my ($standard,$current)=@ARGV;
 
-$standard=~s/[^\/\w]//g;
-$current=~s/[^\/\w]//g;
+$standard=~s/[^\/\w\.]//g;
+$current=~s/[^\/\w\.]//g;
 my %svhash;
 my %sbhash;
 
@@ -12,7 +12,7 @@ my @badversionrpms;
 my @newrpms;
 my @externalrpms;
 
-open IN, $standard;
+open IN, "<$standard";
 while(<IN>) {
     chop;
     my ($name,$version,$buildtime)=split(/\s+/);
@@ -21,7 +21,7 @@ while(<IN>) {
 }
 close IN;
 
-open IN, $current;
+open IN, "<$current";
 while(<IN>) {
     chop;
     my ($name,$version,$buildtime)=split(/\s+/);