[svn:parrot] r33746 - branches/calling_conventions/tools/dev

[particle]

Author: particle
Date: Wed Dec 10 00:02:55 2008
New Revision: 33746

Modified:
   branches/calling_conventions/tools/dev/mk_manifest_and_skip.pl

Log:
[tools] fix script filename generation to use forward-leaning slashies in 
manifest comment, even on windows

Modified: branches/calling_conventions/tools/dev/mk_manifest_and_skip.pl
==============================================================================
--- branches/calling_conventions/tools/dev/mk_manifest_and_skip.pl      
(original)
+++ branches/calling_conventions/tools/dev/mk_manifest_and_skip.pl      Wed Dec 
10 00:02:55 2008
@@ -6,8 +6,12 @@
 use warnings;
 use lib (qw| lib |);
 use Parrot::Manifest;
+use Parrot::Config qw| %PConfig |;
 
 my $script = $0;
+$script =~ s|\\|/|g
+    if $^O eq 'MSWin32';
+$script =~ s|^$PConfig{build_dir}/||;
 
 my $mani = Parrot::Manifest->new( { script => $script, } );