develooper Front page | perl.cvs.parrot | Postings from December 2008

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

From:
particle
Date:
December 10, 2008 00:03
Subject:
[svn:parrot] r33746 - branches/calling_conventions/tools/dev
Message ID:
20081210080255.CF2A8CB9AF@x12.develooper.com
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, } );
 



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About