Bring the inline_perl5.pl demo script up to date.

niner · Sep 7, 2014 · 9e8a52c · 9e8a52c
1 parent c9b69bb
commit 9e8a52c
Showing 1 changed file with 7 additions and 4 deletions.
diff --git a/inline_perl5.pl b/inline_perl5.pl
@@ -1,21 +1,24 @@
 #!/usr/bin/env perl6
 
 use v6;
-use lib '.';
+use lib 'lib';
 use Inline::Perl5;
 
-my $i = p5_init_perl();
+my $i = Inline::Perl5.new();
 say $i.run('
 use 5.10.0;
 
+STDOUT->autoflush(1);
+
 sub test {
-    say time;
+    say scalar localtime;
 }
 
 print "Hello world from Perl ";
 5');
+
 print 'It is now ';
-$i.call('test');
+$i.call('main::test');
 
 $i.DESTROY;