[svn:parrot] r29645 - in trunk/languages/urm: . lib/URM

[bernhard]

Author: bernhard
Date: Mon Jul 21 01:20:12 2008
New Revision: 29645

Modified:
   trunk/languages/urm/lib/URM/Test.pm
   trunk/languages/urm/urmc

Log:
[urm] Use $FindBin::Bin instead of $FindBin::RealBin


Modified: trunk/languages/urm/lib/URM/Test.pm
==============================================================================
--- trunk/languages/urm/lib/URM/Test.pm (original)
+++ trunk/languages/urm/lib/URM/Test.pm Mon Jul 21 01:20:12 2008
@@ -1,6 +1,6 @@
 # $Id$
 
-# Copyright (C) 2005-2007, The Perl Foundation.
+# Copyright (C) 2005-2008, The Perl Foundation.
 
 package URM::Test;
 
@@ -72,14 +72,14 @@
 
 1;
 
-my $urmc    = "$PConfig{perl} 
$FindBin::RealBin$PConfig{slash}..$PConfig{slash}urmc";
+my $urmc    = "$PConfig{perl} 
$FindBin::Bin$PConfig{slash}..$PConfig{slash}urmc";
 my $compile = "-c -s";
 my $run     = "-s";
 
 sub compile_test {
     my $file = shift;
 
-    my $ret = system("$urmc $compile $FindBin::RealBin$PConfig{slash}$file");
+    my $ret = system("$urmc $compile $FindBin::Bin$PConfig{slash}$file");
     if ($ret) {
         print STDERR "TEST FAILED: $file ($ret)\n";
         return;
@@ -89,7 +89,7 @@
 
 sub run_test {
     my ( $file, $expect ) = @_;
-    my $ret = `$urmc $run $FindBin::RealBin$PConfig{slash}$file`;
+    my $ret = `$urmc $run $FindBin::Bin$PConfig{slash}$file`;
     if ( !$ret ) {
         print STDERR "TEST FAILED: $file didn't return a value, Parrot 
crashed?\n";
         return;

Modified: trunk/languages/urm/urmc
==============================================================================
--- trunk/languages/urm/urmc    (original)
+++ trunk/languages/urm/urmc    Mon Jul 21 01:20:12 2008
@@ -18,7 +18,7 @@
 
 use strict;
 use FindBin;
-use lib "$FindBin::RealBin/../../lib";
+use lib "$FindBin::Bin/../../lib";
 
 use Data::Dumper;
 use Getopt::Long;
@@ -30,7 +30,7 @@
 
 # globals
 my ( $filename, $silent );
-my $parrot = 
"$FindBin::RealBin$PConfig{slash}..$PConfig{slash}..$PConfig{slash}parrot$PConfig{exe}";
+my $parrot = 
"$FindBin::Bin$PConfig{slash}..$PConfig{slash}..$PConfig{slash}parrot$PConfig{exe}";
 
 sub filename {
     my $arg = shift;