[src/builtins/io.pir] removed 'prompt' undef warning

When ^D is pressed in a 'prompt' call, a non-optional undef warning was issued. Fixed this.
rakudo · Jun 9, 2009 · fa4198c · fa4198c
1 parent 063f3d5
commit fa4198c
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/builtins/io.pir b/src/builtins/io.pir
@@ -165,8 +165,12 @@ Shows the supplied message and then waits for input from $*IN.
     .param string prompt
     'print'(prompt)
     $P0 = get_hll_global "$IN"
-    $S0 = $P0.'get'()
+    $P1 = $P0.'get'()
+    unless $P1 goto undef
+    $S0 = $P1
     .return ($S0)
+  undef:
+    .return ($P1)
 .end