Fix Pod::Config regression

rakudo · Aug 23, 2011 · c8be361 · c8be361
1 parent 0999de1
commit c8be361
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Perl6/Pod.pm b/src/Perl6/Pod.pm
@@ -78,7 +78,7 @@ class Perl6::Pod {
     }
 
     our sub config($/) {
-        my $type := $*ST.add_constant('Str', 'str', ~$<identifier>);
+        my $type := $*ST.add_constant('Str', 'str', ~$<type>);
         return serialize_object(
             'Pod::Config', :type($type<compile_time_value>),
             :config(make_config($/))