Merge pull request #528 from ugexe/deprecation-removal

remove remaining 2015.09 deprecations
rakudo · Sep 9, 2015 · c8f9f8e · c8f9f8e
2 parents c20c249 + cdfa237
commit c8f9f8e
Show file tree

Hide file tree

Showing 7 changed files with 0 additions and 45 deletions.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -2000,16 +2000,6 @@ Compilation unit '$file' contained the following violations:
         my $name := $past.name();
 
         if $twigil eq '*' {
-            # DEPRECATIONS
-            if $name eq '$*EXECUTABLE_NAME' {
-                $*W.DEPRECATED($/,
-                  '$*EXECUTABLE-NAME','2015.06','2015.09',:what('$*EXECUTABLE_NAME'));
-            }
-            elsif $name eq '$*PROGRAM_NAME' {
-                $*W.DEPRECATED($/,
-                  '$*PROGRAM-NAME','2015.06','2015.09',:what('$*PROGRAM_NAME'));
-            }
-
             $past := QAST::Op.new(
                 :op('call'), :name('&DYNAMIC'),
                 $*W.add_string_constant($name));

diff --git a/src/Perl6/Grammar.nqp b/src/Perl6/Grammar.nqp
@@ -2275,12 +2275,6 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
                             if $*PKGDECL eq 'package' {
                                 $/.CURSOR.panic('This appears to be Perl 5 code. If you intended it to be Perl 6 code, please use a Perl 6 style declaration like "unit package Foo;" or "unit module Foo;", or use the block form instead of the semicolon form.');
                             }
-                            $*W.DEPRECATED($/,
-                              "'unit $*PKGDECL'",
-                              '2015.04',
-                              '2015.09',
-                              :what("Semicolon form of '$*PKGDECL' without 'unit'"),
-                            );
                         }
                         unless $outer =:= $*UNIT {
                             $/.CURSOR.typed_panic("X::UnitScope::Invalid", what => $*PKGDECL, where => "in a subscope");

diff --git a/src/Perl6/ModuleLoader.nqp b/src/Perl6/ModuleLoader.nqp
@@ -89,11 +89,6 @@ class Perl6::ModuleLoader does Perl6::ModuleLoaderVMConfig {
                             return %language_module_loaders<NQP>.load_module($module_name);
                         }
                     }
-                    if %opts<from> eq 'java' {
-                        $*W.DEPRECATED($/,':from<Java>','2015.01','2015.09',:what(':from<java>'), :$line, :$file);
-                        return %language_module_loaders<Java>.load_module($module_name,
-                            %opts, |@GLOBALish, :$line, :$file);
-                    }
                     return %language_module_loaders{%opts<from>}.load_module($module_name,
                         %opts, |@GLOBALish, :$line, :$file);
                 }

diff --git a/src/Perl6/World.nqp b/src/Perl6/World.nqp
@@ -755,15 +755,6 @@ class Perl6::World is HLL::World {
             }
             %*PRAGMAS<trace> := $on;
         }
-        elsif $name eq 'MONKEY_TYPING' {
-            self.DEPRECATED($/,"'use MONKEY-TYPING'",'2015.04','2015.09',
-              :what("'use MONKEY_TYPING'"),
-            );
-            if nqp::islist($arglist) {
-                self.throw($/, 'X::Pragma::NoArgs', :$name)
-            }
-            %*PRAGMAS<MONKEY-TYPING> := $on;
-        }
         else {
             $DEBUG("'$name' is not a valid pragma") if $DEBUG;
             return 0;                        # go try module

diff --git a/src/core/Any-iterable-methods.pm b/src/core/Any-iterable-methods.pm
@@ -277,11 +277,6 @@ augment class Any {
         self.map(&block, :$label).flat
     }
 
-    method for(|c) is nodal {
-        DEPRECATED('flatmap',|<2015.05 2015.09>);
-        self.flatmap(|c);
-    }
-
     proto method grep(|) is nodal { * }
     multi method grep(Bool:D $t) is rw {
         fail X::Match::Bool.new( type => '.grep' );

diff --git a/src/core/IO/Socket.pm b/src/core/IO/Socket.pm
@@ -66,11 +66,6 @@ my role IO::Socket does IO {
         die 'Socket.poll is NYI'
     }
 
-    method send(|c) {
-        DEPRECATED('print', |<2015.07 2015.09>);
-        self.print(|c)
-    }
-
     method print (Str(Cool) $string) {
         fail("Not connected") unless $!PIO;
         nqp::printfh($!PIO, nqp::unbox_s($string));

diff --git a/src/core/Real.pm b/src/core/Real.pm
@@ -123,11 +123,6 @@ my role Real does Numeric {
     method Int(Real:D:) { self.Bridge.Int }
     method Num(Real:D:) { self.Bridge.Num }
     multi method Str(Real:D:) { self.Bridge.Str }
-
-    method sleep() {
-        DEPRECATED('sub form of sleep', '2015.02', '2015.09');
-        sleep self;
-    }
 }
 
 proto sub cis($) {*}