- local($extra_path) = "";
- if ($OS =~ /win/i) {
- if (length($MINGBIN)) {
- # we rely on the ming binary path on windows, since otherwise a strange
- # interaction between perl and windowz causes 'date' to use the retarded
- # windows date program, even with the ming binaries in the path before
- # the windows directory.
- $extra_path = "$MINGBIN/";
-#print "ming path here is:\n$MINGBIN\n";
- } else {
- # just hope that this is running under msys in our build bin.
- $extra_path = "$HOME/hoople2/build/msys/bin/";
- }
- }
-
- local($date_part) = `${extra_path}date +%Y-%m-%d-%H%M`;