🔐 Sid Gifari File Manager Pro
v8.0.5 | 2026-06-14 13:42:16 | PHP 8.1.34
📂
/ (Root)
/
usr
/
share
/
perl5
/
vendor_perl
/
ExtUtils
/
ParseXS
📍 /usr/share/perl5/vendor_perl/ExtUtils/ParseXS
🔄 Refresh
✏️
Editing: CountLines.pm
Read Only
package ExtUtils::ParseXS::CountLines; use strict; our $VERSION = '3.40'; our $SECTION_END_MARKER; sub TIEHANDLE { my ($class, $cfile, $fh) = @_; $cfile =~ s/\\/\\\\/g; $cfile =~ s/"/\\"/g; $SECTION_END_MARKER = qq{#line --- "$cfile"}; return bless { buffer => '', fh => $fh, line_no => 1, }, $class; } sub PRINT { my $self = shift; for (@_) { $self->{buffer} .= $_; while ($self->{buffer} =~ s/^([^\n]*\n)//) { my $line = $1; ++$self->{line_no}; $line =~ s|^\#line\s+---(?=\s)|#line $self->{line_no}|; print {$self->{fh}} $line; } } } sub PRINTF { my $self = shift; my $fmt = shift; $self->PRINT(sprintf($fmt, @_)); } sub DESTROY { # Not necessary if we're careful to end with a "\n" my $self = shift; print {$self->{fh}} $self->{buffer}; } sub UNTIE { # This sub does nothing, but is necessary for references to be released. } sub end_marker { return $SECTION_END_MARKER; } 1;
💾 Save Changes
❌ Cancel