[Date Prev][Date Next][Thread Prev][Thread Next][Minivend by date
][Minivend by thread
]
Re: [mv] More info about static building with MV4.03
Actually, I believe the use of $$data in the print is correct. $data
should be a reference to a string - not the string itself, as evidenced
by the test for "if(ref $data)". The extra $ is used to dereference the
object to get to it's real data (kind of like using **var in C to get the
contents of a variable that's a pointer to a pointer to something).
I suspect, then, your error lies elsewhere.
-Bill
On Mar 31, 4:19pm, jojo@buchonline.net wrote:
} Subject: [mv] More info about static building with MV4.03
}
} ****** message to minivend-users from jojo@buchonline.net ******
}
} Hi list,
}
} if i´ve a page with
}
} Test:[page scan/ml=10/su=yes/se=Kind/sf=title]TEST[/page]
}
} and i use this command "bin/minivend -b <myshopname>", i get
}
} Building page stest..................................
} >> found search ml=10/su=yes/se=Kind/sf=title.html..........Could not Not a
SCALAR reference at /home/mvend4/lib/Vend/Util.pm line 500.
} file '>/www/buchonline.org/html/bol/static4/scan1.html':
} to write this data:
} Vend::TextSearch=HASH(0x8aa7108)
} build_page died: Couldn't write
/www/buchonline.org/html/bol/static4/scan1.html:
[snip]
} I noticed the line ">> found search sf=title%2ehtml/se=K" with
} "%2ehtml" inside of this line. It seems to me, this isn`t right.
}
} Looking into Util.pm again, it seems to me, there is a typo "$$"!
} Remving one "$" works without any error messages!
}
}
} --- Util.pm.orig Sat Mar 18 17:04:49 2000
} +++ Util.pm Fri Mar 31 16:07:11 2000
} @@ -497,7 +497,7 @@
} lockfile(\*MVLOGDATA, 1, 1) or die "lock\n";
} seek(MVLOGDATA, 0, 2) or die "seek\n";
} if(ref $data) {
} - print(MVLOGDATA $$data) or die "write to\n";
} + print(MVLOGDATA $data) or die "write to\n";
} }
} else {
} print(MVLOGDATA $data) or die "write to\n";
} @@ -508,7 +508,7 @@
} my (@args) = grep /\S/, Text::ParseWords::shellwords($file);
} open(MVLOGDATA, "|-") || exec @args;
} if(ref $data) {
} - print(MVLOGDATA $$data) or die "pipe to\n";
} + print(MVLOGDATA $data) or die "pipe to\n";
} }
} else {
} print(MVLOGDATA $data) or die "pipe to\n"
