[interchange-cvs] interchange - jon modified Makefile.PL
interchange-core@icdevgroup.org
interchange-core@icdevgroup.org
Mon Jul 22 10:24:01 2002
User: jon
Date: 2002-07-22 14:23:16 GMT
Modified: . Tag: STABLE_4_8-branch Makefile.PL
Log:
Fix bug in return value, brought up by failure in Perl 5.8.0.
Revision Changes Path
No revision
No revision
2.9.2.14 +1 -1 interchange/Makefile.PL
rev 2.9.2.14, prev_rev 2.9.2.13
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.9.2.13
retrieving revision 2.9.2.14
diff -u -u -r2.9.2.13 -r2.9.2.14
--- Makefile.PL 21 May 2002 21:26:21 -0000 2.9.2.13
+++ Makefile.PL 22 Jul 2002 14:23:14 -0000 2.9.2.14
@@ -343,7 +343,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") {