Permalink
Browse files

[t/spec/S01-perl-5-integration] replace various old usages of perl5: …

…with :from<perl5>

git-svn-id: http://svn.pugscode.org/pugs@29689 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
lwall
lwall committed Feb 11, 2010
1 parent 117208f commit 98ae524d9f22927c2e63086aeaa5d838d3fc2068
@@ -12,12 +12,12 @@ unless (try { eval("1", :lang<perl5>) }) {
{
lives_ok {
eval q|
- use perl5:CGI;
+ use CGI:from<perl5>;
my $q = CGI.new;
is $q.isa(CGI), 1, "Correct isa";
|
or die $!;
- }, "perl5:CLASS.new";
+ }, "CLASS:from<perl5>.new";
}
# vim: ft=perl6
@@ -10,7 +10,7 @@ unless (try { eval("1", :lang<perl5>) }) {
}
}
-use perl5:Carp;
+use Carp:from<perl5>;
my $err;
lives_ok({ try { Carp.croak() }; $err = $! }, "Perl 5 exception (die) caught");
@@ -15,7 +15,7 @@ unless (try { eval("1", :lang<perl5>) }) {
}
eval q[
-use perl5:Text::Wrap 'wrap';
+use Text::Wrap:from<perl5> 'wrap';
is(wrap('foo', 'bar', 'baz'), 'foobaz', "import p5 module");
] or die $!.perl;
@@ -11,7 +11,7 @@ unless (try { eval("1", :lang<perl5>) }) {
eval q<<<
-use perl5:Digest::MD5 <md5_hex>;
+use Digest::MD5:from<perl5> <md5_hex>;
sub get_dmd5 {
my $ctx = Digest::MD5.new;

0 comments on commit 98ae524

Please sign in to comment.