cvsuser 03/12/01 01:30:18
Modified: lib/Parrot/Configure Step.pm
src pmc_freeze.c
Log:
fix (hopefully) freeze and Configure errors
Revision Changes Path
1.19 +5 -5 parrot/lib/Parrot/Configure/Step.pm
Index: Step.pm
===================================================================
RCS file: /cvs/public/parrot/lib/Parrot/Configure/Step.pm,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -w -r1.18 -r1.19
--- Step.pm 27 Nov 2003 18:23:48 -0000 1.18
+++ Step.pm 1 Dec 2003 09:30:16 -0000 1.19
@@ -175,7 +175,7 @@
# Mostly copied from Parrot::Test.pm
foreach ($out, $err) {
- $_ = 'NUL:' if $^O eq 'MSWin32' and $_ eq '/dev/null';
+ $_ = 'NUL:' if $_ and $^O eq 'MSWin32' and $_ eq '/dev/null';
}
if ( $out and $err and $out eq $err ) {
1.13 +2 -1 parrot/src/pmc_freeze.c
Index: pmc_freeze.c
===================================================================
RCS file: /cvs/public/parrot/src/pmc_freeze.c,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -w -r1.12 -r1.13
--- pmc_freeze.c 27 Nov 2003 10:43:34 -0000 1.12
+++ pmc_freeze.c 1 Dec 2003 09:30:18 -0000 1.13
@@ -1,7 +1,7 @@
/* pmc_freeze.c
* Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
* CVS Info
- * $Id: pmc_freeze.c,v 1.12 2003/11/27 10:43:34 leo Exp $
+ * $Id: pmc_freeze.c,v 1.13 2003/12/01 09:30:18 leo Exp $
* Overview:
* Freeze and thaw functionality
* Data Structure and Algorithms:
@@ -565,6 +565,7 @@
/* got a NULL PMC */
pmc = PMCNULL;
*info->thaw_ptr = pmc;
+ *seen = 1;
return pmc;
}
