[interchange-cvs] interchange - jon modified Makefile.PL
interchange-core@icdevgroup.org
interchange-core@icdevgroup.org
Mon Jul 22 10:13:02 2002
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") {