[interchange-cvs] interchange - jon modified Makefile.PL

[interchange-core@icdevgroup.org]

User:      jon
Date:      2002-07-22 14:12:07 GMT
Modified:  .        Makefile.PL
Log:
Fix bug in return value, brought up by failure in Perl 5.8.0.

Revision  Changes    Path
2.22      +1 -1      interchange/Makefile.PL


rev 2.22, prev_rev 2.21
Index: Makefile.PL
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
RCS file: /var/cvs/interchange/Makefile.PL,v
retrieving revision 2.21
retrieving revision 2.22
diff -u -u -r2.21 -r2.22
--- Makefile.PL	27 Jun 2002 18:56:43 -0000	2.21
+++ Makefile.PL	22 Jul 2002 14:12:07 -0000	2.22
@@ -330,7 +330,7 @@
 		$MV::Default{RPMBUILDDIR} =3D $X{RPMBUILDDIR};
 	}
=20
-	return %X if $MV::Default{nocopy};
+	return \%X if $MV::Default{nocopy};
=20
     my $uid =3D $MV::Default{INTERCHANGE_USER};
     if(-f "_uid") {