Work around a NQP limitation caught by jnthn++

jnthn · Apr 2, 2010 · 98818c9 · 98818c9
1 parent 4efce50
commit 98818c9
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/examples/tk.pl b/examples/tk.pl
@@ -10,11 +10,12 @@
 
 my $mw := %exp<sub><&MainWindow>().new;
 
-$mw.Label(-text => 'Hello, world!').pack;
+$mw.Label('-text', 'Hello, world!').pack;
 
+# NQP doesn't support named args starting with a dash
 $mw.Button(
-    -text    => 'Quit',
-    -command => sub (*@_) { exit },
+    '-text',    'Quit',
+    '-command', sub (*@_) { exit },
 ).pack;