Commit | Line | Data |
8ed110f9 |
1 | |
2 | print prototype( 'CORE::sysread' ), "\n" ; |
3 | |
4 | BEGIN { |
5 | |
6 | *CORE::GLOBAL::time = sub { CORE::time }; |
7 | } |
8 | |
9 | print time(), "\n" ; |
10 | |
11 | BEGIN{ |
12 | local *CORE::GLOBAL::time = sub { 123 }; |
13 | |
14 | print time(), "\n" ; |
15 | } |
16 | |
17 | print time(), "\n" ; |