Author: jkeenan
Date: Thu Jan 25 18:39:13 2007
New Revision: 16799
Modified:
trunk/t/tools/pmc2cutils/01-pmc2cutils.t (contents, props changed)
trunk/t/tools/pmc2cutils/02-find_file.t (contents, props changed)
trunk/t/tools/pmc2cutils/03-dump_vtable.t (contents, props changed)
trunk/t/tools/pmc2cutils/04-dump_pmc.t (contents, props changed)
trunk/t/tools/pmc2cutils/05-gen_c.t (contents, props changed)
trunk/t/tools/pmc2cutils/06-print_tree.t (contents, props changed)
trunk/t/tools/pmc2cutils/07-open_file.t (contents, props changed)
Log:
In BEGIN block, first call to $topdir now becomes 'our $topdir'.
Activate SVN Id keywords property.
Modified: trunk/t/tools/pmc2cutils/01-pmc2cutils.t
==============================================================================
--- trunk/t/tools/pmc2cutils/01-pmc2cutils.t (original)
+++ trunk/t/tools/pmc2cutils/01-pmc2cutils.t Thu Jan 25 18:39:13 2007
@@ -10,7 +10,7 @@
use FindBin qw($Bin);
use Cwd qw(cwd realpath);
realpath($Bin) =~ m{^(.*\/parrot)\/[^/]*\/[^/]*\/[^/]*$};
- $topdir = $1;
+ our $topdir = $1;
if (defined $topdir) {
print "\nOK: Parrot top directory located\n";
} else {
Modified: trunk/t/tools/pmc2cutils/02-find_file.t
==============================================================================
--- trunk/t/tools/pmc2cutils/02-find_file.t (original)
+++ trunk/t/tools/pmc2cutils/02-find_file.t Thu Jan 25 18:39:13 2007
@@ -1,6 +1,6 @@
#! perl
# Copyright (C) 2006, The Perl Foundation.
-# $Id: pmc2c.t 14964 2006-10-18 18:20:48Z particle $
+# $Id$
# 02-find_file.t
use strict;
@@ -10,7 +10,7 @@
use FindBin qw($Bin);
use Cwd qw(cwd realpath);
realpath($Bin) =~ m{^(.*\/parrot)\/[^/]*\/[^/]*\/[^/]*$};
- $topdir = $1;
+ our $topdir = $1;
if (defined $topdir) {
print "\nOK: Parrot top directory located\n";
} else {
Modified: trunk/t/tools/pmc2cutils/03-dump_vtable.t
==============================================================================
--- trunk/t/tools/pmc2cutils/03-dump_vtable.t (original)
+++ trunk/t/tools/pmc2cutils/03-dump_vtable.t Thu Jan 25 18:39:13 2007
@@ -1,6 +1,6 @@
#! perl
# Copyright (C) 2006, The Perl Foundation.
-# $Id: pmc2c.t 14964 2006-10-18 18:20:48Z particle $
+# $Id$
# 03-dump_vtable.t
use strict;
@@ -10,7 +10,7 @@
use FindBin qw($Bin);
use Cwd qw(cwd realpath);
realpath($Bin) =~ m{^(.*\/parrot)\/[^/]*\/[^/]*\/[^/]*$};
- $topdir = $1;
+ our $topdir = $1;
if (defined $topdir) {
print "\nOK: Parrot top directory located\n";
} else {
@@ -29,6 +29,7 @@
my $dump_file;
my $cwd;
+
# basic test
{
$cwd = cwd();
Modified: trunk/t/tools/pmc2cutils/04-dump_pmc.t
==============================================================================
--- trunk/t/tools/pmc2cutils/04-dump_pmc.t (original)
+++ trunk/t/tools/pmc2cutils/04-dump_pmc.t Thu Jan 25 18:39:13 2007
@@ -10,7 +10,7 @@
use FindBin qw($Bin);
use Cwd qw(cwd realpath);
realpath($Bin) =~ m{^(.*\/parrot)\/[^/]*\/[^/]*\/[^/]*$};
- $topdir = $1;
+ our $topdir = $1;
if (defined $topdir) {
print "\nOK: Parrot top directory located\n";
} else {
Modified: trunk/t/tools/pmc2cutils/05-gen_c.t
==============================================================================
--- trunk/t/tools/pmc2cutils/05-gen_c.t (original)
+++ trunk/t/tools/pmc2cutils/05-gen_c.t Thu Jan 25 18:39:13 2007
@@ -1,6 +1,6 @@
#! perl
# Copyright (C) 2006, The Perl Foundation.
-# $Id: pmc2c.t 14964 2006-10-18 18:20:48Z particle $
+# $Id$
# 05-gen_c.t
use strict;
@@ -10,7 +10,7 @@
use FindBin qw($Bin);
use Cwd qw(cwd realpath);
realpath($Bin) =~ m{^(.*\/parrot)\/[^/]*\/[^/]*\/[^/]*$};
- $topdir = $1;
+ our $topdir = $1;
if (defined $topdir) {
print "\nOK: Parrot top directory located\n";
} else {
Modified: trunk/t/tools/pmc2cutils/06-print_tree.t
==============================================================================
--- trunk/t/tools/pmc2cutils/06-print_tree.t (original)
+++ trunk/t/tools/pmc2cutils/06-print_tree.t Thu Jan 25 18:39:13 2007
@@ -1,6 +1,6 @@
#! perl
# Copyright (C) 2006, The Perl Foundation.
-# $Id: pmc2c.t 14964 2006-10-18 18:20:48Z particle $
+# $Id$
# 06-print_tree.t
use strict;
@@ -10,7 +10,7 @@
use FindBin qw($Bin);
use Cwd qw(cwd realpath);
realpath($Bin) =~ m{^(.*\/parrot)\/[^/]*\/[^/]*\/[^/]*$};
- $topdir = $1;
+ our $topdir = $1;
if (defined $topdir) {
print "\nOK: Parrot top directory located\n";
} else {
Modified: trunk/t/tools/pmc2cutils/07-open_file.t
==============================================================================
--- trunk/t/tools/pmc2cutils/07-open_file.t (original)
+++ trunk/t/tools/pmc2cutils/07-open_file.t Thu Jan 25 18:39:13 2007
@@ -1,6 +1,6 @@
#! perl
# Copyright (C) 2006, The Perl Foundation.
-# $Id: pmc2c.t 14964 2006-10-18 18:20:48Z particle $
+# $Id$
# 07-open_file.t
use strict;
@@ -10,7 +10,7 @@
use FindBin qw($Bin);
use Cwd qw(cwd realpath);
realpath($Bin) =~ m{^(.*\/parrot)\/[^/]*\/[^/]*\/[^/]*$};
- $topdir = $1;
+ our $topdir = $1;
if (defined $topdir) {
print "\nOK: Parrot top directory located\n";
} else {
