File: rlversion

package info (click to toggle)
libterm-readline-gnu-perl 1.47-1
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 1,148 kB
  • sloc: perl: 2,191; makefile: 10
file content (18 lines) | stat: -rwxr-xr-x 407 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
#!/usr/bin/env perl
#
# rlversion -- print out readline's version number
#
#   Copyright (C) 2024 Hiroo Hayashi
#
# Derived from: examples/rlversion.c in the GNU Readline Library
#   Copyright (C) 1987-2009 Free Software Foundation, Inc.

use strict;
use warnings;
use Term::ReadLine;

my $t = new Term::ReadLine 'rlversion';
my $a = $t->Attribs;

print(($a->{library_version} or 'unknown'), "\n");
exit 0;