[interchange-cvs] interchange - jon modified relocate.pl

[interchange-core@icdevgroup.org]

User:      jon
Date:      2003-06-18 21:43:14 GMT
Modified:  .        relocate.pl
Log:
Quell unneeded warnings about undef string concatenation.

Revision  Changes    Path
2.2       +3 -1      interchange/relocate.pl


rev 2.2, prev_rev 2.1
Index: relocate.pl
===================================================================
RCS file: /var/cvs/interchange/relocate.pl,v
retrieving revision 2.1
retrieving revision 2.2
diff -u -u -r2.1 -r2.2
--- relocate.pl	27 Jun 2002 18:56:43 -0000	2.1
+++ relocate.pl	18 Jun 2003 21:43:14 -0000	2.2
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 
 # relocate.pl
-# $Id: relocate.pl,v 2.1 2002/06/27 18:56:43 jon Exp $
+# $Id: relocate.pl,v 2.2 2003/06/18 21:43:14 jon Exp $
 #
 # Rewrite pathnames or other values that need to be hardcoded in
 # files. Take a commented line, remove the leading hash character,
@@ -35,6 +35,8 @@
 	return $MV::Self->{$key} unless $key =~ /[a-z]/;
 	return $Config{$key};
 }
+
+no warnings 'void';
 
 DOIT: {
 	my ($input, $output);