[svn:parrot] r48692 - trunk/compilers/opsc/src/Ops

[cotto at svn.parrot.org]

Author: cotto
Date: Fri Aug 27 08:46:45 2010
New Revision: 48692
URL: https://trac.parrot.org/parrot/changeset/48692

Log:
use installed VERSION instead of assuming there's one in the cwd

Modified:
   trunk/compilers/opsc/src/Ops/File.pm

Modified: trunk/compilers/opsc/src/Ops/File.pm
==============================================================================
--- trunk/compilers/opsc/src/Ops/File.pm	Fri Aug 27 08:34:24 2010	(r48691)
+++ trunk/compilers/opsc/src/Ops/File.pm	Fri Aug 27 08:46:45 2010	(r48692)
@@ -295,7 +295,9 @@
 }
 
 method _set_version() {
-    my $version := pir::chopn__ssi(slurp('VERSION'), 1);
+    my $config           := _config();
+    my $version_filename := $config<prefix> ~ $config<slash> ~ 'VERSION';
+    my $version          := pir::chopn__ssi(slurp($version_filename), 1);
     #say("# $version");
     my @bits := split('.', $version);
     self<version_major> := @bits[0];