loncom/build/filecompare.pl - diff

Return to filecompare.pl CVS log

Up to [LON-CAPA] / loncom / build

-version 1.10, 2001/12/06 23:14:33
+version 1.11, 2002/02/05 00:52:08
  Line 503  sub cvstime {
      }
      my $cvstime;
      if ($buildmode!=3) {
- 	my $entry=`grep '^/$file/' ${path}CVS/Entries` or
+ 	my $entry=`grep '^/$file/' ${path}CVS/Entries`;
- 	    die('*** ERROR *** cannot grep against '.${path}.
+ # or
- 		'CVS/Entries for ' .$file . "\n");
+ #	    die('*** WARNING *** cannot grep against '.${path}.
-         my @fields=split(/\//,$entry);
+ #		'CVS/Entries for ' .$file . "\n");
-         $cvstime=`date -d '$fields[3] UTC' --utc +"%s"`;
+ 	if ($entry) {
-         chomp $cvstime;
+ 	    my @fields=split(/\//,$entry);
+ 	    $cvstime=`date -d '$fields[3] UTC' --utc +"%s"`;
+ 	    chomp $cvstime;
+ 	}
+ 	else {
+ 	    $cvstime='n/a';
+ 	}
      }
      else {
  	$cvstime='n/a';