File: format_x

package info (click to toggle)
libfortran-format-perl 0.90-3
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, trixie
  • size: 264 kB
  • sloc: perl: 968; fortran: 192; makefile: 2
file content (20 lines) | stat: -rw-r--r-- 393 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Description: Fixed a missing read_once() for X format
From: Francesco Paolo Lovergine <frankie@debian.org>
Forwarded: no
Last-Update: 2021-01-05

--- a/Format.pm
+++ b/Format.pm
@@ -1101,6 +1101,12 @@
     "";
 }
 
+sub read_once {
+    my ($self) = @_;
+    $self->writer->position( relative => 1 );
+    "";
+}
+
 package Fortran::Format::Edit::SLASH;
 
 our @ISA = "Fortran::Format::Node";