Front page | perl.perl5.porters |
Postings from October 2009
From 4a38ef20578f963767254db05a466ed52b7b54a4 Mon Sep 17 00:00:00 2001
From: George Greer <perl@greerga.m-l.org>
Date: Tue, 13 Oct 2009 20:21:51 -0400
Subject: [PATCH] Replace ' with :: package separator in t/cmd/subval.t
---
t/cmd/subval.t | 18 +++++++++---------
1 files changed, 9 insertions(+), 9 deletions(-)
diff --git a/t/cmd/subval.t b/t/cmd/subval.t
index 0999ff9..243ac6e 100644
--- a/t/cmd/subval.t
+++ b/t/cmd/subval.t
@@ -106,7 +106,7 @@ sub somesub {
&somesub(27, 'main', __FILE__, __LINE__);
package foo;
-&main'somesub(28, 'foo', __FILE__, __LINE__);
+&main::somesub(28, 'foo', __FILE__, __LINE__);
package main;
$i = 28;
@@ -151,28 +151,28 @@ sub iseof {
{package foo;
- sub main'file_package {
+ sub main::file_package {
local(*F) = @_;
open(F, 'Cmd_subval.tmp') || die "can't open: $!\n";
- $main'i++;
- eof F ? print "not ok $main'i\n" : print "ok $main'i\n";
+ $main::i++;
+ eof F ? print "not ok $main::i\n" : print "ok $main::i\n";
}
- sub main'info_package {
+ sub main::info_package {
local(*F);
open(F, 'Cmd_subval.tmp') || die "can't open: $!\n";
- $main'i++;
- eof F ? print "not ok $main'i\n" : print "ok $main'i\n";
+ $main::i++;
+ eof F ? print "not ok $main::i\n" : print "ok $main::i\n";
&iseof(*F);
}
sub iseof {
local(*UNIQ) = @_;
- $main'i++;
- eof UNIQ ? print "not ok $main'i\n" : print "ok $main'i\n";
+ $main::i++;
+ eof UNIQ ? print "not ok $main::i\n" : print "ok $main::i\n";
}
}
--
1.6.0.4
Thread Previous
|
Thread Next