# New Ticket Created by chromatic # Please include the string: [perl #45189] # in the subject line of all future correspondence about this issue. # <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=45189 >
This patch removes a bit of deprecated syntax. Unfortunately, its only location within the tree is within the Win32-specific parts of File::Spec, so I can't test it. Is there a Win32 hacker who can verify that it works? -- c
=== DEPRECATED.pod ================================================================== --- DEPRECATED.pod (revision 5688) +++ DEPRECATED.pod (local) @@ -15,19 +15,8 @@ =head1 Deprecated methods -=over 4 +Currently no methods are deprecated. -=item PGE - -PGE::P6Regex is now a registered compiler, and should be used like so: - - <@pmichaud> it's easy; instead of $P0 = find_global "PGE", "p6rule" - one now does $P0 = compreg "PGE::P6Regex" - -This syntax is also true for PGE::Glob and PGE::P5Regex - -=back - =head1 Deprecated ops From L<http://www.parrotcode.org/docs/ops/var.html>, the following ops are === runtime/parrot/library/File/Spec/Win32.pir ================================================================== --- runtime/parrot/library/File/Spec/Win32.pir (revision 5688) +++ runtime/parrot/library/File/Spec/Win32.pir (local) @@ -91,7 +91,7 @@ .local pmc rulesub .local pmc match - p6rule= find_global 'PGE', 'p6rule' + p6rule = compreg "PGE::Regex" ## m{^([a-z]:)?[\\/]}is rulesub= p6rule( ':ignorecase ^ ( <?alpha> \: )? <[\\/]>' ) @@ -128,7 +128,7 @@ .local pmc rulesub .local pmc match - p6rule= find_global 'PGE', 'p6rule' + p6rule = compreg "PGE::P6Regex" ## dir =~ m{\\$}is rulesub= p6rule( '\\ $' ) @@ -158,7 +158,7 @@ unless num_args, return .local pmc p6rule, rulesub, match - p6rule= find_global 'PGE', 'p6rule' + p6rule = compreg "PGE::P6Regex" .local pmc dir dir= new 'String' @@ -216,7 +216,7 @@ .param string path .local pmc p6rule, rulesub, match - p6rule= find_global 'PGE', 'p6rule' + p6rule compreg "PGE::P6Regex" match_1: ## $path =~ s/^([a-z]:)/\u$1/s; @@ -452,7 +452,7 @@ .local pmc rulesub .local pmc match - p6rule= find_global 'PGE', 'p6rule' + p6rule = compreg "PGE::P6Regex" unless no_file, with_file ## m{^( (?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)? ) @@ -510,7 +510,7 @@ .local pmc rulesub .local pmc match - p6rule= find_global 'PGE', 'p6rule' + p6rule = compreg "PGE::P6Regex" ## TODO this whole rule section rulesub= p6rule( '^ <[\\/]>? ( <-[\\/]>? ) <[\\/]>? ' )
