[Lxr-commits] CVS: lxr/lib/LXR Files.pm,1.8.2.3,1.8.2.4

[Malcolm B. <mb...@us...>]

Update of /cvsroot/lxr/lxr/lib/LXR
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18633/lib/LXR

Modified Files:
      Tag: bk-dev-branch
	Files.pm 
Log Message:
Change to warn instead of die-ing when unimplement function is called

Index: Files.pm
===================================================================
RCS file: /cvsroot/lxr/lxr/lib/LXR/Files.pm,v
retrieving revision 1.8.2.3
retrieving revision 1.8.2.4
diff -u -d -r1.8.2.3 -r1.8.2.4
--- Files.pm	13 Feb 2005 23:37:59 -0000	1.8.2.3
+++ Files.pm	14 Feb 2005 00:50:25 -0000	1.8.2.4
@@ -47,62 +47,63 @@
 
 sub getdir {
 	my $self = shift;
-	die  '::getdir not implemented';
+	warn  "::getdir not implemented. Parameters @_";
 }
 
 sub getfile {
 	my $self = shift;
-	die  '::getfile not implemented';
+	warn  "::getfile not implemented. Parameters @_";
 }
 
 sub getannotations {
 	my $self = shift;
-	die  '::getannotations not implemented';
+	warn  "::getannotations not implemented. Parameters @_";
 }
 
 sub getauthor {
 	my $self = shift;
-	die  '::getauthor not implemented';
+	warn  "::getauthor not implemented. Parameters @_";
 }
 
 sub filerev {
 	my $self = shift;
-	die  '::filerev not implemented';
+	warn  "::filerev not implemented. Parameters @_";
 }
 
 sub getfilehandle {
 	my $self = shift;
-	die  '::getfilehandle not implemented';
+	warn  "::getfilehandle not implemented. Parameters @_";
 }
 
 sub getfilesize {
 	my $self = shift;
-	die  '::getfilesize not implemented';
+	warn  "::getfilesize not implemented. Parameters @_";
 }
 
 sub getfiletime {
 	my $self = shift;
-	die  '::getfiletime not implemented';
+	warn  "::getfiletime not implemented. Parameters @_";
 }
 
 sub getindex {
 	my $self = shift;
-	die  "::getindex not implemented. Parameters @_";
+	warn  "::getindex not implemented. Parameters @_";
 }
 
 sub isdir {
 	my $self = shift;
-	die  "::isdir not implemented. Parameters: @_";
+	warn  "::isdir not implemented. Parameters: @_";
 }
 
 sub isfile {
 	my $self = shift;
-	die  "::isfile not implemented. Parameters: @_";
+	warn  "::isfile not implemented. Parameters: @_";
 }
 
 sub toreal {
 	# FIXME: this function should probably not exist, since it doesn't make sense for 
 	# all file access methods
+	warn "toreal called - obsolete";
 	return undef;
 }