File: test23-strevall.p

package info (click to toggle)
libdevel-nytprof-perl 6.12%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 2,552 kB
  • sloc: perl: 5,616; javascript: 4,033; ansic: 107; makefile: 23
file content (12 lines) | stat: -rw-r--r-- 468 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
 
# test handling of string eval 'file names' that don't include the
# invoking filename (normally added when $^P & 0x100 is true).

shift;

# fake an eval (using a #line directive) that doesn't match the
# usual "(eval N)[file:line]" syntax:
#line 42 "(eval 142)"
# [stats for the line below won't appear in reports because as far as perl is
# concerned the rest of this file isn't actually part of this file, but is
# actually part of a file called "(eval 142)"]
242;