File: test23-strevall.p

package info (click to toggle)
libdevel-nytprof-perl 5.06%2Bdfsg-2
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 2,396 kB
  • ctags: 1,413
  • sloc: perl: 4,905; ansic: 101; sh: 54; makefile: 17
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;